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ABSTRACT 


The Computer Aided Prototyping System (CAPS) was created to make the software 
development cycle more efficient. CAPS provides a graphics editor and a syntax-directed 
editor (SDE) for users to enter prototypes’ specifications. The major problem: the user must 
have a good knowledge of the Prototyping Systems Description Language (PSDL) 
program syntax in order to use the SDE. Such a requirement imposes a very steep learning 
curve on a new CAPS user. 

The challenge was to minimize the time a user needs to spend in order to complete a 
development without extensive knowledge of other tools like PSDL and SDE. 

The solution is to redesign and implement a new graphics editor to allow the user to 
enter all PSDL specifications via graphics editor with hierarchical pull-down menus. The 
approach taken was to first determine where to start and what type of language and graphic 
tools should be used in combination to give the ultimate results. There choices were 
TAEplus, Motif, and the Idraw firom Stanford University. Idraw was chosen because of its 
design, capabilities, and user friendliness. 

The major contribution of this thesis is a powerful and user firiendly graphics editor to 
rapidly construct a prototype of a large real-time system. The new CAPS graphics editor 
has been evaluated by members of the CAPS user group and early feedback shows that the 
new editor is a tmly usable tool. SDE can now take advantage of this graphics editor to 
enhance the prototyping capabilities of CAPS. 
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I. INTRODUCTION 


A. GENERAL 

The purpose of this thesis is to design and build a better graphics editor to have a 
friendly editing environment for Computer Aided Rapid Prototyping Systems (CAPS) to 
support the rapid prototyping of hard real time systems. First, explanation is needed to clear 
what is CAPS. 

The Computer Aided Prototyping System (CAPS) is a software engineering 
environment for developing prototypes of real-time systems. It is useful for requirements 
analysis, feasibility studies, and the design of large embedded systems. CAPS is based on 
the Prototyping System Description Language (PSDL) [LBY88], which provides facilities 
for modeling, timing, and control constraints within a software system. CAPS is a 
collection of tools, implemented in the form of an integrated environment, linked together 
by a user-interface. CAPS provides the following kinds of support to the prototype 
designer: 

• timing feasibility checking via the scheduler, 

• consistency checking and some automated assistance for project planning, 
scheduling, designer task assignment, and project completion date estimation via the 
Evolution Control System, 

• design completion via the editors, and 

• computer-aided software reuse via the software base. 

A CAPS prototype is initially built as an augmented data flow diagram and a 
corresponding PSDL program. The CAPS data flow diagram and PSDL program are 
augmented with timing and control constraint information. This timing and control 
constraint information is used to model the functional and real-time aspects of the 
prototype. The CAPS environment provides all of the necessary tools for engineers to 
quickly develop, analyze and refine real-time software systems. The general structure of 
CAPS is shown in Figure 1. 
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As Figure 1 indicates, CAPS is a collection of tools, integrated by the user- 
interface. The CAPS User-Interface provides access to all the CAPS tools and facilitates 
communication between tools when necessary. The tools in the figure are grouped into four 
sections. Editors, Execution Support, Project Control and Software Base. Each CAPS tool 
is associated with a different aspect of the CAPS prototyping process. 


CAPS USER MENU 



Figure 1.1: The CAPS Development Environment 

Rapid prototyping has been presented as an alternative paradigm for software 
development and evolution. The purpose of prototyping is ensure that proposed 
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requirements and system concepts adequately match the needs of the prospective clients 
before detailed optimization and implementation efforts begin. “Computer-aided rapid 
protot 3 q)ing improves the efficiency and accuracy of evolutionary development by 
introducing software tools that assist the designer in constructing and executing the 
prototype quickly and systematically” [LUQI89]. The general software development cycle 
with respect to prototyping is shown in Figure 2. 



Figure 1.2: The Prototyping Process 

CAPS is specifically designed to assist and partially automate the development 
efforts which lie in the shaded regions of the prototyping process figure. Specifically, based 
on a set of initial requirements, CAPS allows the engineer to design, modify, demonstrate 
and validate a software system. Through this process, system requirements can be refined 
and modified as necessary. 
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A more precise description of the CAPS prototyping process can be found in the 
CAPS tutorial [BROC94], and is repeated here for the convenience of the readers. The 
CAPS protot 3 ^ing process can be roughly divided into 10 steps listed below. The 10 
enumerated steps are accomplished through use of the CAPS tools. 

1) Based on requirements, design (or modify) the data flow diagram for the system. 

2) Assign all appropriate timing and control constraints to the prototype operators. 
Assign latencies to data streams (if required). 

3) Assign data types to all data streams. 

4) Find (in the software base) or build an implementation module for each user- 
defined data type and each atomic operator. Modules taken from the software base can be 
modified after retrieval to suit individual needs. 

5) Build the prototype’s user-interface (if required). 

6) Translate the CAPS-generated (and user-augmented) PSDL program into (a 
portion of) the Ada supervisor module. 

7) Run the CAPS scheduler to generate the static and dynamic schedules. This 
completes the prototype’s Ada supervisor module. 

8) Compile the prototype. 

9) Execute, evaluate and modify (if appropriate) the prototype and/or the 
requirements. 

10) Return to Step 1 if prototype modification is required. 

B. PROBLEM STATEMENT 

CAPS has been the focus of research efforts for several years. Many different parts 
of CAPS have been implemented as the end product of Masters’ thesis over the years, 
during different stages of the design effort, using system models with higher level of 
maturity as time passes. 

The focus of this thesis is to create a graphics editor that allows user to annotate the 
graph with constraint information via menus and buttons graphically, without the need of 
editing the entire PSDL program in textual form. 
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C. SCOPE 

The scope of this thesis was originally limited to complete the implementation of 

the last versions of the graphics editor to handle a fuU-blown PSDL prototype specification. 
After researching the capabilities of the graphics editor, it became apparent that some of 
the needed functionality that was included in the CAPS92s’ graphics editor was not 
implemented in the CAPS93s’ graphics editor. 

First this thesis contains the research to find out what version of the graphics editor 
should be upgraded in order to achieve maximum user fiiendliness and to take advantage 
of the accompanying syntax-directed editing feasibilities. Then after deciding on which 
version should be upgraded, the other capabilities would be added. 

D. ORGANIZATION OF THESIS 

Chapter E provides the background of CAPS. Chapter IE describes the advantage 
and disadvantages of each graphics editors’ environment and why the choice of upgrading 
the CAPS92s’ graphics editor was made for CAPS94 version. Chapter IV covers lack of 
documentation and problems encountered. Chapter V is the user manual, and Chapter VI 
is conclusions and recommendations. 
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n. BACKGROUND 


A. GENERAL 

The Computer Aided Prototyping System (CAPS) is a software engineering 
environment designed to take specifications expressed in the Prototype System Description 
Language (PSDL) and make them executable. The newest version of CAPS provides an 
integrated editing environment that requires the user to manually adjust the location of the 
bubbles, labels, streams, and variables, and to enter the annotated text via the syntax 
directed PSDL editor. It is desirable to the CAPS users that all the text entries adjustments 
and modifications be done graphically via hierarchy menus. 

One constraint on the graphics part of the CAPS is that it must be implemented in 
the X Window system, from the Massachusetts Institute of Technology (MIT). This 
constraint is motivated by portability concerns. The best way of implementing an X 
Windows-based graphics editor is to use one of the existing toolkits. 

During the process of this thesis three toolkits were evaluated: 

• The TAE Plus(Transportable Applications Environments Plus) from NASA. 

• The Motif toolkit from Open Software Foundation. 

• The Interviews toolkit from Stanford University. 

This chapter provides a general introduction to these issues. 


B. PROTOTYPING SYSTEM DESCRIPTION LANGUAGE 

The Prototyping System Description Language (PSDL) is a text-based language 
designed to express the specifications of real-time systems. It is based on a graphic model 
of vertices and edges, where the vertices represent operators, or software process, and the 
edges represent the conceptual “flow” of data from one operator to another. Each vertex 
and edge may have associated timing constraint, and the vertices may have associated 
control constraints. 

Formally, the model used is that of an augmented graph. 
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G = (V,E,T(v),C(v)) 

where G is the graph, V is the set of vertices, E is the set of edges, T(v) represents 
the timing constraints for the vertices, and C(v) represents the control constraints for the 
vertices [LUQI88]. 

Conceptually, PSDL operators may contain other operators to support the principle 
of abstraction. An atomic operator is one that is implemented in a programming language, 
vice a composite operator consisting of other operators and streams. 

For example, the following diagram shows a PSDL prototype: 



Figure 2.1: Example of PSDL Graph 

This graph represents an operation modelled by the Operator X that accepts one 
item from Stream A, it performs some operation on the data, and outputs Stream B. The 
Maximum Execution Time (MET), this is the maximum possible time the operator may 
take to execute the tesk, defined as 600 milliseconds. 

In this example. Operator X is decomposed as follows: 
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Figure 2.2: Decomposed PSDL Graph 

Operator X is a composite operator, while Operator XI and Operator X2 are atomic 
operators, implemented in Ada or some other language. The timing and control constraints 
on these atomic operators must be consistent with those of their parent operator. In a single 
processor architecture, the combined METs of these atomic operators can not be greater 
than their parent. Operator X is really not needed to implement the prototype. It serves 
merely to abstract the functionality of its child operators. 

A more detailed description of the PSDL can be found in [LUQI88] and [LUQI89]. 

C. THE COMPUTER AIDED PROTOTYPING SYSTEM 

The Computer Aided Prototyping System (CAPS) is a set of software tools that 
provides the environment to rapidly build and execute a prototype. The designer of a 
software system uses a graphics editor to create a graphic representation of the proposed 
system. The graphic representation is used to generate part of an executable description of 
the proposed system, represented in the protyping language. This description is used to 
search a database of reusable software components to find components to match the 
specification of the prototype. A transformation schema is used to transform the prototype 
into a programming language. The prototype is then compiled and executed. The end user 
of the proposed system will evaluate the prototype’s behavior against the expected 
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behavior. If the comparison results are not satisfactory, the designer will modify the 
prototype and the user will evaluate the prototype again. This process will continue until 
the user agrees that the prototype meets the requirements. The software designer would be 
able to see whether the PSDL prototype was logically consistent and semantically and 
syntactically correct. It would also allow the designer to verify whether the assigned 
constraints were achievable, or whether either looser constraints or a more efficient 
implementation were required. 

The CAPS was created with these goals in mind[LUQI88]. It is designed to provide 
the following features to the user: 

• automated support for PSDL text editing 

• a drawing editor for PSDL graphs 

• generation of schedules and control code 

• a run-time environment to monitor the execution of prototype 

• a data base of reusable components for implementing atomic operators 

• a sophisticated engineering data base for managing prototypes 

D. INTERVIEWSrA USER INTERFACE TOOLKIT 

Interviews is a C-H- graphical interface toolkit developed at Stanford 
University[STAN91]. It includes a library of predefined interactive objects. These objects 
can be combined to construct many types of user interfaces. Interviews’ object oriented 
approach provides a natural way to buUd user interfaces as communicating objects. 

Interviews runs on the top of X Windows. X Window system was developed to: 

• Solve a common problem in large computer networks. 

• It was also invented to combine graphics and text easily. 

• Display graphics on many different hardware platforms. 

In the X Window System, a program is logically separated fi-om the physical 
display that shows its output. The program is called a client, while the physical unit is called 
a server. 
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Interviews provides three classes of objects: interactors, graphics, and text. An 
interactor class manages some area of potential input and output on a workstation display. 
All user interface objects are inherited from this class. Example of interactors are bottons, 
menus, and dialogue boxes. Figure 2.3 shows the hierarchial structure of the interactor 
class. 



Figure 23: Interactor Class Hierarchy 

The graphics class defines structured graphics objects. Objects in this class can 
draw and erase themselves. A state attached to each object which includes attributes of 
color, line style, and coordinate transformation. Figure 2.4 shows the hierarchical structure 
of the graphics class. 
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Figure 2.4: Graphics Class Hierarchy 

The text class defines structured text objects like strings, text editors, and text 
buffers. 

E. IDRAW: INTERVIEWS DRAWING EDITOR 

John Vlissides who is the author of Idraw and Unidraw, used to work for Stanford 
University, and at the present time he is working for IBM. He used the Interviews toolkit 
to create a higher-level toolkit designed for the creation of domain-specific graphics 
editors[VLIS89]. By using a standard set of atomic and composite tools, Idraw is capable 
of creating an extremely complex graphics editor with a minimum of source code. 

Idraw is an object oriented drawing editor provided with Interviews. Idraw 
provides immediate feedback as the user creates and implements graphic objects such as 
circles, squares, ellipses, lines, and splines. A picture of Idraw (Interviews’ Drawing 
Editor) is shown in Figure 2.5. Idraw’s user interface is composed of Interviews’ interactor 
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and graphics classes. It contains a set of tools on the left side of the editor and a set of pull 
down menus along the top. The tools are used to create the graphic objects or to change the 
user’s view of the drawing. In order to change a graphic object’s attributes, the menus must 
be used. 



Figure 2.5: Idraw; Interviews Drawing Editor 
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Idraw allows the user to create the following objects: 

• line 

• multi line 

• open spline 

• rectangle 

• ellipse 

• closed spline 

• polygon 

• text 

Once drawn, these objects can be moved, scaled, stretched, or rehashed. Any part 
of the drawing can be modified. Various standard editing functions, such as printing a 
drawing, saving a drawing, and deleting an object, are provided. Certain attributes of the 
editor, such as font types, brush type, pattern, and foreground and background color can be 
customized by setting X resources. These customizations are stored with the drawing so not 
only can be restored when the drawing is edited, but also they are easily retrieved or 
transported. The drawings are stored in a modified PostScript format. 

F. MOTIF 

Another toolkit available for X-Window user interface is the Open Software 
Foundation’s Motif toolkit. The Open Software Foundation (OSF) is a consortium of 
companies including Hewlett-Packard, Digital Equipment Corporation, IBM, and others, 
whose main business is to enhance the interoperability between computers of different 
manufacturers. 

Motif is a lower-level toolkit than Interviews, providing user interface objects 
known as widgets with a specific appearance and function. The programming environment 
provided by Motif is commonly a mix between native X, an intermediate level known as 
Xt Intrinsics, and higher-level Motif. The Programmer can thus use the pre-defined Motif 
objects to provide a user interface with a highly standardized appearance, while at the same 
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time having access to low-level X functions to implement more specific control over the 
application. 

The Motif environment is highly dependent on external configuration options 
known as resources that allow the installed site and the user a great deal of control over the 
appearance and functioning of Motif programs. K the programmer so desires, almost every 
aspect of a Motif program from the color to menu options to fonts can be configured in 
resource files, allowing the users extreme flexibility in the appearance and function of a 
program. Resources are modified by editing simple text strings, without the need to 
recompile the original source code[HELL91]. 

G. TAE PLUS 

The TAE Plus architecture is an extension of the original TAE application 
management system, called “TAE Classic.” TAE Classic is based on a total separation of 
the user interaction where all user dialogue is directed through an application executive, 
called the Terminal Monitor (TM). This central control of the user interface provides a 
consistent look and feel across an application but is limited to ASCII (alphanumeric) 
terminals. 

The advent of graphic workstations led to the development of more elaborate user 
interface and a closer relationship between the application and the user interface. This often 
complicated development efforts and particularly the porting of applications to different 
hardware platforms. TAE Plus addresses the needs of the application developer of 
graphical user interfaces by providing an effective and portable mechanism for separating 
the interface and application as much as possible. 

The current release of TAE Plus is designed to be portable across a wide range of 
machines and operating systems. TAE Plus is designed to run on UNIX and DEC VMS 
systems that support the X Window System. The user interface looks and feel is based on 
the Open Software Foundation’s Motif specification for graphical user interface. 

The TAE Plus WorkBench is a development tool that supports the interactive 
design and layout of graphical user interfaces. The major elements of a user interface are 
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“panels” and “interaction items.” TAE Plus initial WorkBench file selection menu is shown 
in Figure 2.6 below, and the actual TAE Plus WorkBench is shown on Figure 2.7. 



Figure 2.6: TAE Plus WorkBench file Selection Menu 

A TAE Plus panel is similar to an individual X window, and is used to hold a 
collection of interaction items, as it can be seen in TAE Plus WorkBench below. 


16 



Edit 


Arrange Auxiliaiy 


Help 


Figure 2.7: TAE Plus WorkBench 


TAE Plus interaction items receive information from, and display information to, 
the user. They include such objects as buttons, scrolling lists, pulldown menus, text input 
fields, and dials. With the WorkBench, a user interface developer can: 

• Define, resize, move, copy, and set the display attributes and default values of 
interaction items and panels. 

• Define user interface connections that associate the user selection of an interaction 
item, such as button, with a change in state of that button’s panel and/or a change in state 
of another panel. 

• Rehearse a user interface, trying out defined connections, and reviewing the look 
and feel of the interface from the end user’s perspective. 

• Generate application code that displays and controls the designed user interface. 

• Save the user interface separately from the application code in a TAE Plus 
resource file. 

• Modify an existing user interface, with few or no changes required to the 
application code. 

So after investigating the prospects of using TAE Plus for CAPS graphics editor, 
and testing the TAE Plus, I noticed that they use the Interviews’ Idraw for their graphics 
editor. Figure 2.8 shows the TAE Plus’s graphics editor. So, concluded that this is not the 
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right choice. TAE Plus is a very powerful tool to make interfaces, but not creating a 
graphics editor for CAPS purpose. On the other hand it is obvious that because TAE Plus 
is using Interviews’ Idraw for their graphics editor, Idraw must be a powerful tool. 



Figure 2.8: TAE Plus’s Graphics Editor 
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ni. DESIGN OF THE CAPS’94 GRAPHICS EDITOR 


A. INTRODUCTION 

As stated in the introduction, the focus of this thesis is the Graphics Editor, which 
is the user interface for building prototypes. The existing graphics editors of versions 
CAPS92 and CAPS93 are completely different. CAPS92 used the Interviews’ Idraw for a 
base [CUMM90]. In CAPS93’s a generic text editor based on the Motif toolkit is used to 
edit all the PSDL functions [DIX092]. 

B. CAPS92 GRAPHICS EDITOR 

In CAPS92, Interviews’ Idraw was chosen as the graphics editor tool because of its 
powerful graphics. Postscript output, editing capabilities, object oriented representation, 
and ease of use. It also provides a variety of fonts, colors, brush types and patterns to 
enhance the drawing. The following is an object oriented analysis of the Idraw. 

Class Idraw 

Idraw is the main class of the editor. It opens a given drawing file, if any, creates 
the editor on the screen, and calls the event handler. Run, to process the user’s action until 
the user chooses to terminate the editor. 

Idraw depends on several classes. A diagram of these dependencies is shown in 
Figure 3.1. The class hierarchy is as follows: 

Class Idraw 

Behavior: Displays a drawing editor. 

Set of Attributes: 

initial_drawing: Name of drawing file to edit, 

cmds : Commands: Display a pull down menu bar which 

contains many pull down menus. 
Performs operations on the drawing. 
Displays drawing. 


drawing: Drawing: 
drawing: DrawingView: 
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editor: Editor: 
mapkey: MapKey: 
panner: Fanner: 
state: State: 

stateview: StateView: 
tools: Tools: 
operations: 

Idraw: 

Run: 


Handles drawing and editing operations. 
Maps characters to Interactors, 
pans and zooms drawing. 

Stores cmrent state information about 
drawing. 

Displays current state information. 
Displays drawing Tools. 

Parses command line arguments, 
initializes attributes, and displays editor. 
Opens drawing file, and processes user’s 
choices until the editor is terminated. 



Figure 3.1: Idraw Dependency Diagram 
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Class Commands 

Commands provides over 100 traditional editing commands. It is displaying as a 
menu bar containing a collection of pull down menus referenced by the title of the menu. 
The following groups of editing functions are represented by the menus: 

File: Presents file operations such as opening file, saving a 

file, and printing a file. 

Edit: Presents editing operations such as deleting a selected 

object, cutting an object from the drawing, and pasting a 
cut object in the drawing. 

Structure: Presents operations to change the way objects are 

structured together such as grouping selected objects 
together, bringing an object to the front of the group, and 
sending an object to the back of the group. 

Font: Presents a list of fonts to be used for the text in the 

drawing. 

Brush: Presents various types of brushes such as solid lines, 

dashed lines, and directed lines anchored at one end. 

Pattern: Presents a list of patterns for the selected graphic objects. 

Color: Presents a list of foreground and background colors for 

the selected graphic objects. 

Align: Presents various alignment options such as aligning left 

sides of selected objects, and aligning centers of selected 
objects. 

Options: Presents various options to aid in putting the drawing on 

the page, such as reducing a drawing to fit on one page, 
centering a drawing to the page, and providing a grid. 
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Class Drawing 

The Drawing contains the internal representation of the picture. The user’s drawing 
is stored as a linked list of graphics objects. The interface to modify the objects is also 
provided. Drawing depends on two classes: 

PictSelection: Linked list of objects in drawing. 

SelectionList: Linked list of those objects to be modified by a command 

or tool. 

Class DrawingView 

The DrawingView provides the user’s view of the drawing. It is responsible for 
everything drawn on the screen. 

Class Editor 

The Editor performs the operation selected by the user for the given tool or 
command. It uses Drawing to modify the internal representation of the drawing when 
needed. 

Class MapKey 

Each of the tools and commands can be executed by typing a letter as a shortcut to 
clicking with the mouse. MapKey maps the letter to the tool or command desired. It stores 
all of the tools and commands in a table indexed by the shortcut letter. 

Class Fanner 

The Fanner is used to pan and zoom the drawing in order to view the drawing close 
up or farther away; 

Class FictSelection 

Drawing stores all of the graphic objects drawn on the screen in picture, an instance 
of the FictSelection class. Each object is an instance of a class inherited from the class 
Selection. Selection is inherited from the Interviews Graphic class. FictSelection is 
inherited from Selection and is a linked list of all the Selections in the drawing. The 
Selection inheritance hierarchy is shown in Figure 3.2. The NFtSelection, also shown in 
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the figure, is a special type of graphic object that can draw arrowheads on one or both of its 
endpoints. 

Class SelectionList 

The SelectionList contains a subset of the Selections in the drawing. It is a linked 
list of only those Selections chosen by a drawing tool or editing command. 

Class State 

The State stores state information about the user’s drawing and paint attributes to 
be used when creating new graphic objects. Some of the information stored are the brush 
type, drawing name, font, and pattern. 



Figure 3.2: Selection Hierarchy 

Class State View 

Idraw keeps track of and displays current state information. The kinds of 
information displayed are: 

• current brush type 
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• name of current drawing 

• current font 

• status of gridding 

• magnification percentage 

• current modification status of drawing 

• current pattern 

Each piece of information is a separate object and inherited from StateView. The 
State View hierarchy is shown in Figure 3.3 below. 



Figure 3.3: StateView Hierarchy 

Class Tools 

Tools creates the panel that displays the drawing tools to the user. These drawing 
tools are: 

• Select one or more graphic objects. 

• Move the selected objects to another location on the screen. 

• Scale the selected objects. 

• Stretch the selected objects. 

• Rotate the selected objects. 

• Reshape the selected objects. 
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• Magnify the selected objects. 

• Add text to the drawing. 

• Draw a line. 

• Draw a multiline. 

• Draw an open spline. 

• Draw an ellipse. 

• Draw a rectangle. 

• Draw a polygon. 

• Draw a closed spline. 

The panel created by Tools is made up of panel items known as IdrawTools. Each 
of the Tools functions is represented by a class inherited from IdrawTool. Figure 3.4 
shows hierarchy of these tools. 



Figure 3.4: IdrawTool Hierarchy 


















CAPS92 graphics editor was accomplished by making some major changes to the 
existing Idraw codes. The following is the list of the major changes to Idraw to construct 
the graphics editor: 

• Present Prototype Names To The User. 

• Remove Unused Commands and Tools. 

• Add Internal Representation of DFD. 

• Modify Existing Commands and Tools. 

• Add New Tools. 

• Add Ability to Rebuild DFD Data Structure. 

• Add Message Block. 

Detailed information can be found in Mary Ann Cummings’ thesis on The 
Development of User Interface Tools for CAPS, [CUMM90]. 

C. CAPS93 GRAPHICS EDITOR 

Motif was used for creation of CAPS93s’ graphics editor and was developed by the 
Open Software Foundation (OSF), an industry consortium that includes Digital Equipment 
Corp., Hewlett-Packard, and IBM. Motif actually refers to any one of the following: 

• A look-and-feel Style Guide for applications, based on IBM’s Common User 
Access (CUA) guidelines, which are also implemented in OS/2 and Microsoft Windows. 

• A window manager, mwm, to help enforce the Style Guide. 

• A User Interface Language (UIL) interpreter, which places much of the user 
interface code into interpreted files. 

• A toolkit (C library) for building style Guide-compliant applications, also called 
a widget set. This toolkit is based on the Xt Intrinsics, as are other toolkits like the Athena 
widgets and OLIT. 

Motif allows you to create programs with a graphical-user interface that can run on 
a wide variety of computer platforms, including systems from Sun Microsystems, Hewlett- 
Packard, IBM, Silicon Graphics, DEC, and a slew of clone vendors who support UNIX on 
the 386/486/Pentium architectures. 
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There are a number of reasons why we might want to use the Motif toolkit: 

• Motif is one of the major interface standards in the UNIX world. 

• Motif was adopted as part of the Common Open Software Environment, or COSE, 
led by IBM, Hewlett-Packard, Sun, SCO, Univel, and UNIX System Laboratories. 

• OSF/Motif compliance is needed for selling to many big firms and organizations. 

• Using an X tooUdt-any X toolkit- speeds programming. 

• Motif provides nice-looking 3D effects. 

• Motif fits in reasonably well with X standards with the user of window managers 
and resource files. 

• Motif also is part of some of the newer trends in software design and development. 
Included in this trend is the notion of EVENT-DRIVEN programming. 

The CAPS 93’s graphics editor was intended to implement some very specific 
behavior that is not directly available under Interviews, for example the UNDO function 
to undo the recent changes before saving the prototype. 

Motif gives the simple capabilities of drawing circles, lines, and rectangles, but it is 
not a graphics editor. The capabilities that is needed and it is not included in CAPS 93’s 
graphics editor, they exist in CAPS 92s’ graphics editor. These capabilities requires a lot of 
programming time and are as follows: 

• Reduce to fit 

• Redraw and Center page 

• Grouping of objects 

• Moving groups of objects 

• Different brush style 

• Delete an object or group of objects 

• Select All 

Idraw is an ideal tool, it has all the needed capabilities to handle all the graphic 
needs of CAPS. CAPS92s’ graphics editor is well capable of many needed functionality for 
manipulating prototypes data. 
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D. CONCLUSION OF GRAPHICS EDITOR CHOICE 

After extensive investigation and evaluation, the choice is clear. Upgrading the 
CAPS92s’ graphics editor to give the needed capabilities gives a more capable graphics 
editor to the users of CAPS. Idraw will provide much of the complicated required 
functionality that is needed. This will save lots of programming time. Reusing existing 
codes is one of the most important part of Software Engineering. By using the existing 
codes of Idraw which is a good and bug free code will save lots of time. 

E, DESIGN CHOICES OF THE GRAPHICS EDITOR 

The CAPS94 graphics editor will have an extra menu bar button by the name of 
Property. Property will be consisted of the following menu buttons: 

• Constraint by. 

• Stream. 

• Operator Specification. 

Constraint by is a menu button which consists of others command buttons and menu 
buttons. The difference between the command buttons and menu buttons is: the menu 
buttons will present the user with more command buttons, while the command buttons will 
activate a procedure to handle the required actions. Under Constraint by menu the 
command buttons are: 

• Output Gaurd. 

• Exception Condition. 

And the menu buttons are: 

• Trigger. 

• Finish Within. 

• Minimum Calling Period. 

• Maximum Response Time. 

• Period. 

• Timer operator. 

Stream button will activate a command button and a menu button and they are: 
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• Label button. 

• Latency menu. 

Label button activates a procedure which gives the capability to enter labels for the 
operators and the streams (vertices and edges). Latency menu will activate another menu 
with five command buttons. These buttons are the units of time that a stream (edge) may 
have to enter the time and they are: 

1. Hour. 

2. Minute. 

3. Second. 

4. Millisecond. 

5. Microsecond. 

Operator Specification menu consists of five command buttons and three menu 
buttons. The command buttons are: 

• Key Words. 

• States. 

• Informal. 

• Formal. 

• Exception_Declaration 
And the menu buttons are: 

• Generic. 

• Input. 

• OuQiut. 

• MET. • 

Key Words, States, Informal, Formal, and the Exception_Declaration wiU activate 
the related procedures for proper actions. Generic, Input, and Output menu buttons will 
activate another menu with four choices of data types and they are: 

1. integer. 

2. real. 

3. boolean. 
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4. user defined. 

MET menu button will give the user five choices of time units and they are: 

1. Hour. 

2. Minute. 

3. Second. 

4. Millisecond. 

5. Microsecond. 

F. DATA STRUCTURE 

It is possible to use the existing data structure of CAPS92, and expand it to meet 
PSDL’s grammer requirements. The existing data structure is as follows: 

OperatorSelList is doubly linked list of OperatorSelNode. OperatorSelNode’s 
internal pointer points to the Class OperatorSelection. Class OperatorSelection is the 
following: 

class OperatorSelection { 
public: 

OperatorSelection(EllipseSelection*); 

~OperatorSelection(); 

void SetEllipseSelection(EllipseSelection*); 

EllipseSelection* GetEllipseSelection(); 
void SetTextSelection(TextSelection*); 

TextSelection* GefTextSelectioni); 
void SetMETSelection(TextSelection*); 

TextSelection* GetMETSelection(); 
voidInputDataFlowSplineAppend(DFDSplineSelNode*); 
void OutputDataFlowSplineAppend(DFDSplineSelNode*); 
void SelfLoopAppend(DFDSplineSelNode*); 
char* FindSplineInList(TextSelection*, BSplineSelection*); 
DFDSplineSelList* GetInputDFSplineList(); 
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DFDSplineSelList* GetOutputDFSplineList(): 

DFDSplineSelList* GetSelfLoopList(); 

boolean FomdSplineInLists(BSplineSelection*,BSplineSelection*); 
boolean FoundSelfLoopInList(BSplineSelection*, BSplineSelection*); 
char* FoundTextInLists(TextSelection*, TextSelection*); 
void FoundSecondTextlnListslchar*, TextSelection*); 
char* GetPSDLTextO; 

boolean FindSplineInSecondList(char*, char*, BSplineSelection*); 
void SetPSDLText(char*); 

boolean AddLatencyToSplineInList(TextSelection*, BSplineSelection*); 

voidRemoveInputFromPSDL(TextSelection*); 

voidRemoveOutputFromPSDL(TextSelection*); 

voidRemoveStateFromPSDL(TextSelection*); 

void Setld(int); 

intGetIdO; 

protected; 

void AddOperatorldToPSDL(char*); 

void AddInputToPSDL(); 

void AddOutputToPSDL(); 

void ReplaceInputStringInPSDL(char*, char*); 

void ReplaceOutputStringInPSDL(char*, char*); 

int Firidlndex(chaf**, int); 

void ReplaceStateStringInPSDL(char*, char*); 

void AddStateToPSDL(); 

void AddMt'l l oPSDL(TextSelection*); 


int opid; 

EllipseSelection* elsel; 
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,// operator drawn in DFD 



TextBujfer* txb; .// bujfer containing P$DL 

TextSelection* txtsel; .// operator’s label 

TextSelection* metsel; .// operator’s MET 

DFDSplineSelList* input df spline jist; H list of input data 
II flow splines 

DFDSplineSelList* output_df_spline list; II list of output data 
H flow splines 

DFDSplineSelList* self loop list; H list of self loops 


inline void OperatorSelection;;SetId(int id) { 
opid = id; 

} 

The same procedures can be used with different names to process the additional 
needed PSDL’s data. For example for adding TrrigerByAU the following may be added to 
the protected part of this class as follow: 

voidAddTriggerByAllPSDL ( TextSelection *); 

TextSelection * triggerByAllsel; . Hoperatore’s Trriger By All 

Also the data flow diagram of CAPS92 can be expanded to meet the additional 
PSDL grammar that is necessary for complition of CAPS ’graphics editor. The existing data 
flow diagram is: 

// keywords to be inserted when creating PSDL 
#d^ne OPER TKN "OPERATOR " 

#define SPECJKN “ SPECIFICATION\n” 

#d^ne INPUT_TKN " INPUTm” 

Udefine OUTPUTJKN “ OUTPUTm" 

#d^ine ST_TKN “ STATES\n UNDEFINED ID ; UNDEFINED JYPE\n 
INITIALLY UNDEFINEDJXPRESSIONSn” 

^define MET TKN “ MAXIMUM EXECUTION TIME " 
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“ DESCRIPTION “ 

“{ UNDEFINED JEKT }\n 
“ END\n 

“ lMPLEMENTATION\n” 

‘ GRAPH\n 
“ VERTEX “ 

“ EDGE “ 

UNDEFINED ID" 


Mefine DESC_TKN 
ffdefine TEXTJKN 
Mefine ENDTKN 
#d4ineIMPTKN 
Mefine GRTKN 
#define VERTKN 
#define EDGETKN 
#define IDJKN 
#define EXTTKN “ EXTERNAL" 

#define TYPE_DECLTKN “ UNDEFINED JD : UNDEFINED JYPE’ 
#define IMP_ADA JKN “ IMPLEMENTATION ADA “ 

#d^ne STREAM JKN “ DATA STREAM\n" 

Mefine CON JKN “ CONTROL CONSTRAINTS\n" 

Mefine CONjOPJKN " OPERATOR UNDEFINED JD\n" 


11 keywords to be used for search through PSDL text buffer. They are 
II different from those above because the text buffer can’t ever locate 
II newlines 

ttdefine INPUTJCHJKN “INPUT' 

Udefine SPEC_SCHJKN “SPECIFICATION" 

Udefine OUTPUT_SCH JKN “OUTPUT’ 

#define GENJCHJKN “GENERIC" 

Mefine STATES_SCH JKN “STATES" 

Udefine EXCEPT_SCH JKN “EXCEPTIONS" 

Ildefine METJCHJKN “MAXIMUM EXECUTION TIME “ 
#define MCPJCHJKN “MINIMUM CALUNG PERIOD" 
ttdefine MRTJCHJKN “MAXIMUM RESPONSE TIME" 

Mefine KEY_SCH JKN “KEYWORDS" 

UdefineDESCJCHJKN “DESCRIPTION" 
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#define AXJCHTKN “AXIOM” 

Ud^ne ENDJCHJKN “END” 

#define STREAM JCHJKN “DATA STREAM” 

#d^ne TIMERJCHJKN “TIMER” 

#define CON JCHJKN “CONTROL CONSTRAINTS” 

#define METSDE “psdl_editor” 

#d^ne STREAMSJDE “psdljeditor” 

#define CONSTRAINTS JDE “psdljeditor” 

#define SPECIFICATION JDE “psdljeditor” 

So there exists two kinds of keywords. Those which are used for creation of PSDL 
have the form XXXXXXX_TKN, and those for PSDL text buffer with the form 
XXXXXXX_SCH_TKN. In order to meet all the PSDL grammer’s requirement the 
following keywords must be added to the dfd_defs.h file. 

• #define TRIGGER_IF_TKN “ TRIGGER IF “ 

. #define TRIGGER_BY_ALL_TKN “TRIGGER BY ALL” 

• #define TRIGGER_BY_SOME_TKN ‘TRIGGER BY SOME “ 

. #define FINISH_WITHIN_TKN “ FINISH WITHIN” 

• #define MAX_RES_TIME_TKN “ MAXIMUM RESPONSE TIME” 

• #define PERIOD_TKN “PERIOD “ 

• #define INFORMAL_TKN “ INFORMAL” 

• #define FORMAL_TKN “FORMAL” 

• #define OUTPUT_GAURD_TKN “OUTPUT GAURD” 

• #define TRIGGER_IF_SCH_TKN “ TRIGGER IF “ 

• #define TRIGGER_BY_ALL_SCH_TKN “TRIGGER BY ALL” 

• #define TRIGGER_BY_SOME_SCH_TKN “TRIGGER BY SOME “ 

• #define FINISH_WnHIN_SCH_TKN “ FINISH WITHIN” 

• #define MAX_RES_TIME_SCH_TKN “MAXIMUM RESPONSE TIME” 

• define PERIOD_SCH_TKN “PERIOD “ 

. #define INFORMAL_SCH_TKN “INFORMAL” 
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• #define FORMAL_SCH_TKN “FORMAL” 

• #defme OUTPUT_GAURD_SCH_TKN “OUTPUT GAURD” 
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IV. IMPLEMENTATION CHALLENGES 

A. LACK OF DOCUMENTATION 

Both Interviews and Idraw are research tools developed at Stanford University. As 
such, the availability of any technical document that relates to any of the modules’ codes 
does not exist. Only few tutorial pages were found after searching the Internet. There was 
no documentation that explains how the pieces fit together. There is no reference material 
for the programmers who chose to modify the behavior of any existing tools. The only 
available form of documentation is most instances is to examine the uncommented library 
source code for the tool in hopes of figuring out how things work. Of course if the software 
were written in Ada, it would be very easy to figure each module out. DOD is the only one 
so far who knows the true power and value of Ada. The software development and research 
communities often ignore the biggest benefit of Ada in reducing the cost of developing a 
software is in maintanace, upgrading, and future modifications. It is hard for an 
experienced programmer and software developer who uses Ada to generate spaghetti 
codes, but in C or C++ they have to work really hard to develop a clean code that can be 
followed in the future by other professionals. Interviews and Idraw were written in C++. 
So, lack of documentation is not the only short coming. 

B. PROBLEMS 

First problem was encountered during compilation of the CAPS 92 source code. 
Because the graphics editor is using so many different modules firom Interviews library and 
the X-window library, setting up the paths in Makefile took few days with the size of 85757 
bytes. Had to figure out the correct versions through trail and error compilations. 

Second problem was encountered during the design of the hierarchy menus. 
Interviews’s Idraw does not handle any hierarchy of menus. In order to get the desired 
functionality a hierarchy menu is the must. Idraw making a sophisticated use of inheritance 
of C++. Inheritance is a property of object-oriented languages like C++ that allow the 
programmer to reuse existing software implementations, adding and modifying features in 
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a structured way. While this is a great convenience for the programmer, it results in some 
objects being implemented with five to nine levels of inheritance. At the leaf nodes of the 
inheritance tree, the reader sees methods and variables used, often with no idea where they 
are defined. Small pieces of code are added at each level of inheritance, spreading the 
complete definition of some operations up and down the inheritance tree. It was very 
difficult to figure out what things do without a good documentation, and it took in excess 
of six weeks to find out where each module is coming fi-om and what they do. This is true 
example of perfect spaghetti code. Because of this undocumented complex inheritance it 
took many tries to set up a hierarchy menu class set up with the help of many experts in the 
area of C++. The pdmenu.h and pdmenu.c was rewritten in order to get the hierarchy menus 
set up. In order to have a hierarchy of pull down menus the following classes were used: 

1. Class Window. This is the window class. While there are many classes that the 
Window class has inherited, the lower classes does not need to be upgraded for our usage. 

2. Class Interactor. Interactor class is the one that handles all the handshaking 
activities between aU the modules. These activities are: 

• Configuration. 

• Traversing hierarchy. 

• Input events. 

• Outputs. 

• Subject-view communications. 

• Canvas properties. 

• Top-level interactors. 

3. Class InteractorWindow. An InteractorWindow will bind, unbind, receive, set 
attributes, and handle targets. 

4. Class Scene. A Scene can hold many elements with functionality of Insert, 
Change, Remove, Move, Raise, Lower, and Propagate. 

5. Class MonoScene. A MonoScene can hold only one element. 

6. Class HighlighterParent. A HighlighterParent creates a highlight painter for its 
interior Highlighters to share. 
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7. Class Highlighter. A Highlighter draws itself and highlights or unhighlights itself 
on command. 

8. Class PullDownMenuActivator. A PuUDownMenuActivator displays a test label 
and opens a menu when it is activated. PullDownMenuActivator stores the bar it belongs 
to and its text label. It starts off with an empty menu and no stored commands, although it 
allocates some initial space to store the commands. It must catch the same mouse button 
PuUDownMenuCommand catches. 

9. Class PuUDownMenuCommand. A PuUDownMenuCommand displays a text 
label and executes a command. PuUDownMenuCommand stores the activator it belongs to 
and its text labels. It catches only one mouse button to prevent the user from accidentaUy 
executing a command upon another button’s release. 

10. Class PullDownMenuDivider. A PuUDownMenuDivider displays a horizontal 
line extending the full width of the menu, dividing it into two submenus. 

11. Class PuUDownMenuBar. A PuUDownMenuBar displays several activators and 
coordinates which activator wiU open its menu. PuUDownMenuBar starts with no currently 
active or stored activators although it aUocates some initial space to store them. 

12. Class PuUDownMenuButton. A PuUDownMenuButton displays a text label and 
executes a command. 

Third problem was encountered during the connectivity between CAPS92 tools and 
the new editors’ menu commands. CAPS92 did not use tools through puU down or push 
button menus. Instead the same tools’ procedures that came with Idraw was copied, 
modified, and used. 

Final problem was encountered during the conversion of input and ouU)ut of the 
graphics editor. Because the initial version of the graphics editor was created before there 
was a syntax-directed editor for PSDL, it was designed in isolation. The CAPS92 version 
of editor.c uses two files to save and load the graphs. A PostScript file and a graph file. The 
PostScript file contains all of the information to make the graph appear on the screen, i.e. 
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all of the drawing information including fonts, colors, brushes, etc. The graph file teUs the 
MET’s of operators, and which edges hook to which operators. The identification numbers 
of the operators and edges actually come from the PostScript file. So, there was a great need 
to come up with a way of storing all the graph information needed to reconstmct the graph 
including fonts, colors, and all the other graphics information. The PostScript output file of 
the graph still needed in order to print hard copies of the prototypes’ graph. So the final 
challenge was to rewrite the input and output procedures to be able to write all the prototype 
graphs’ information, (Operators, Streams, METs, Latencies, and other needed information) 
in a file that be usable by SDE. Also the graphics editor must be able to read and display 
this file after modification by SDE. 


C. GUTOANCE FOR FUTURE UPGRADES 

It is important for anyone with a good knowledge of C-h- who wants to upgrade 
anything in this graphics editor to take notes of the files which must get modified for 
addition or modification of one function. For example, in order to add the functionality for 
the Trigger_If button for constraints part of PSDL grammar, the following files had to be 
upgraded: 

• dfd_defs.h 

• dfdclasses.h 

• drawing.h 

• drawing.c 

• editor.h 

• editor.c 

• keystrokes.h 

• opsellist.h 

• opsellistc 

• sloperator.h 

• sloperator.c 
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• tools.c 

• commands.c 

D. NEEDED ADDITIONS FOR COMPLITION OF THE EDITOR 

The graphics editor was designed to be user friendly and perform as many functions 
as needed to draw a prototype. Because of time limitations all the needed functionality of 
the command buttons were not implemented. The following functionalities are complete: 

• Operators 

• Streams (data streams, sampled data streams, states streams) 

• Operators’ label 

• Steams’ label 

• Operator’s MET 

• Streams’ latency 

• Operators’ triggered if condition 

• Operators’ decomposition 

• Operators’ atomic implementation in Ada 

• Prototype’s title/comment 

Other needed procedures must be added in order to satisfy the execution of other 
command buttons. The existing codes from the implemented command buttons may be 
copied and changed to add the other desired functionalities. 
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V. USERS MANUAL 


A. INTRODUCTION 

The Computer Aided Prototyping System, CAPS, is a software development 
environment that provides a means to rapidly constract an executable prototype 
representing a large real-time software system on a software with real-time constraints. 

A window based menu user interface guides the user through the rapid prototyping 
process. The interface can run on any UNIX workstation that uses the X windowing 
system. 

B. USING THE GRAPHICS EDITOR 

The graphics editor provides drawing tools and editing commands in order to create 
or modify an enhanced DFD. The tools choices are: Select, Move, Implement/Decompose, 
Title/Comment, Stream (represented as a line). Operator (represented as a circle). 

The tools are used by placing the mouse pointer over the tool button and clicking 
with the left mouse button. To use the PSDL commands to input the prototypes’ 
information, the Property hierarchy menu button must be activated. In order to see the pull 
down menus under the Property button, one must place the mouse pointer over the Property 
button and click and hold the left mouse button. Then while the left mouse button is pushed 
down, by moving the mouse pointer on top of the existing option menu buttons, they will 
get activated. The three pull down menus under the Property button are, Constrained_By, 
Stream, and C)perator_Spec. By moving the mouse pointer while pressing the left mouse 
button over each of these buttons another menu will be activated. If the left mouse button 
is released or if the mouse pointer goes out of the menu parameter, all the menus will go 
away. So, in order to activate a command, the left mouse button must be held down and 
drag the mouse pointer to the desired command and then release the left mouse button. 


TOOLS 
a. Select 
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This tool is used to mark as selected those objects drawn on the screen that will be 
modified by another tool or command. Select a single graphics object, or select more than 
one object by holding down the left mouse button and dragging the mouse cursor until each 
of desired objects are enclosed in the resulting rectangle. 

b. Move 

This tool is used to move an operator, text, or part of the data flow diagram. A data 
stream or state cannot be moved by themselves. If an operator moves, its associated objects 
will move with it. Select a single graphics object, and move the object by holding down the 
left mouse button and dragging the mouse cursor. If more than one object is to be moved, 
we must first use the Select tool to select the group of objects to be moved, and then use the 
Move tool to drag the group to the new location. 

c. Implement^ecompose 

This tool is used to decompose an operator into a lower level DFD. First, select an 
operator. The prototype will automatically be saved. A dialog box will pop up to determine 
type of decomposition desired. The following choices are available: 

• Graphics Editor: Another graphics editor will appear and the lower level DFD 
may be drawn. There is no limitation on the level of decomposition. Decomposition may 
be continued as many levels as there is need for. 

• Ada: Generate the PSDL declaration for an Ada implementation of the operator. 
The actual Ada code must be written by the user. 

• Search: Generate the PSDL declaration for an Ada implementation of the operator 
and search the software base for a reusable component to match the PSDL specification of 
the operator. 

d. Title/Comment 

This tool is used to add comments anywhere on the drawing. It is used by placing 
the mouse cursor where the text is to be placed and clicking with the left mouse button will 
activate the keyboard for text entry. The comment is not used by SDE. It is used for 
explaining a prototype or giving a name to a prototypes graph for clarity. 
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e. Stream 

This tool is used to draw a data stream or state variable. At least one end point of a 
data flow must be inside an operator(vertex). In order to have a stream from operator A to 
operator B, first must place the mouse cursor inside the operator that stream comes from 
and press the left mouse button one time only, then drag the mouse cursor without pressing 
on any of the mouse buttons inside Operator B that streams goes to and press the mouse’s 
right button. The end points of the stream will automatically get adjusted at the intersection 
of the operator and the stream. Figure 5.1 shows Stream_A_B from Operator A to Operator 
B. 



In order to draw a spline between two Operators A and B, first place the mouse 
inside Operator A and press the left mouse button one time, next move the mouse cursor 
(without pressing any of the mouse buttons) to an intermediate point between A and B. 
press the left mouse button once. This will cause the spline to pass through this point. You 
may add as many intermediate points as required. Finally, move the mouse to Operator B 
and press the right mouse button. The spline will then be drawn from Operator A to 
Operator B, passing through all intermediate points. Figure 5.2 shows Stream_A_B from 
Operator A to Operator B through two intermediate points. 
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Figure 5.2: Stream A B from Operator A to Operator B 


f. Operator 

This tool is used to draw an operator. The radius of the operator will be 35 pixels. 
Choose were the center of the operator is desired by the mouse cursor and push the left 
mouse button to get an operator at that location. 

COMMANDS 

a. Property 

Except the Operator and Stream that was put on the left panel as a tool, rest of the 
PSDL grammar has been implemented in the puU down menu bar hierarchy under the 
Property button. 

b. Prototype 

This pull down menu present prototype operations. The following operations are 
available under this menu: 

• OPEN will open up a window with the list of existing prototypes. 

• COMMIT 

• PRINT will print the prototype’s data flow diagram. 

• QUIT will save the active prototype and quits the graphics editor. 

c. Edit 
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This pull down menu presents editing operations. The following edit operations are 
available: 

• DELETE will delete the selected object or objects. 

• SELECT ALL will select all of the existing objects in the active prototype. 

d. Graphics 

This pull down menu presents the user with the following capabilities: 

• Font, This pull down menu will present the user with list of fonts to be used for 
the text in the drawing. Only the selected text will use the chosen font. 

• FgColor, this pull down menu give the user different options of color for the 
selected text, streams, and operators. 

• BgColor, This pull down menu presents a list of background colors for the selected 
operators. 

e. Option 

This pull down menu presents various options to aid in putting the drawing on the 
page, such as reducing the prototypes’ graph to fit on one page, centering the prototypes’ 
graph on the page, and providing a grid with different settings. 
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VI. CONCLUSIONS AND RECOMMENDATIONS 


A. SUMMARY 

The goal of this thesis is to develope a Mendly editing environment for computer 
aided rapid prototyping of hard real time systems for CAPS. This graphics editor constructs 
a graphical representation of the prototype. 

The graphics editor handles all the editing requirements of a prototype. It provides 
many user friendly features, such as moving objects associated with an operator when the 
operator is moved and updating the PSDLs’ associated parts, also updating the PSDL 
program associated with an operator when one of its associated objects is modified or 
deleted. The graphics editor also automatically generates a PSDL representation of the 
prototype. 

Additional options were added to the original design as a result of user testing. The 
Tide/Comment tool will give the users the capability to add explanation for any operator 
or stream. Another use of this tool is to add the title on the top of each prototype graph, so 
when someone look at the graph instantly understand what the prototype is all about, also 
this is useful for the decomposed operators, if an operator have three or four level of 
decomposition, the title on each graph may include an explanation of this condition. 
Another useful addition is that each decomposed operator will be marked with an asterisk 
on the top of its circle. When the Ada is chosen for Decompose/Implement option, an 
Emacs editor will be open with all the existing information implemented from the graph. 
In the editor there will be the package specifications and the package body with all the 
existing information from the graph. The unknown information will be shown as 
undefined. Professor Berzins recommended that we should have different lines thickness 
or types for streams (edges) to graphically be able to identify the difference between data 
streams, sampled streams and states. This accomplished, now the data streams are shown 
with heavy weight line, states with thin lines, and the sampled streams with heavy dashed 
lines. 
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There was also a suggestion on the color of the operators to be chosen 
automatically. After collecting ideas from the current users of CAPS, deciding on the 
different colors for certain types of operators, and thinking about the implementation part, 
concluded that: 

• Each user will have their opinion on colors. 

• Having predefined colors, and giving another option to the user to be able to over 
write the default colors need additional coding time that is not possible for this thesis time 
limits. 

• In case of prototypes like Patriot and the Scud Missile, the predefined color will 
not look good for two separate systems. 

• The users suggested that maybe the option of having no color is good when there 
is a need to print the prototypes graph for distribution, 

B. CONCLUSION 

As the result of this thesis, CAPS will have a powerful and user friendly graphics 
editor to rapidly construct a prototype of a large real-time system. The modification and 
changes made to the CAPS graphics editor as a result of this thesis, have made CAPS into 
a truly usable tool. SDE can now take advantage of this graphics editor to enhance the 
prototyping. 
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APPENDIX A: GRAPHICS EDITOR 


A. STATEMENT OF PURPOSE 

The purpose of the CAPS graphic editor is to establish a software development 
environment that will provide the designer with a means of constructing a prototype in an 
easy-to-use environment to facilitate the creation, modification, and maintenance of 
prototype. 

B. GRAPHICS EDITER’S OUTPUT FORMAT 

The following attempts to list the format of a .graph file for use with the latest 
version of the CAPS editor. This format is used to allow the graph to be saved and 
reconstructed from a single file, and eliminates the need for a.ps (PostScript) file to 
reconstruct the graph. 

The files is composed of two sections, the first is a list of Vertices and Edges. The 
list may intermix Edge specifications with Vertex specifications with the following 
restriction. An Edge must be specified AFTER the VertexA^ertices to which it is attached. 
The second portion of the file is simple the state of the editor at the point at which it 
the.graph file was last saved. The individual specifications are as follows: 

(NOTE: the C++ style comments are for clarification only and do not appear in the 
actual, graph file) 

// Vertex Specification: 

2050 // The integer 2050 signifies an OPERATOR 

int // a unique OPERATOR identification number 

int int // CenterX, CenterY for the ellipse 

int int // RadiusX, RadiusY for ellipse 

string int int int // name and RGB values for Foreground 

string int int int // name and RGB values for Background 
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LABEL_STRING //see format for a label below 
MET_STRING // see format for a label below 
// Edge Specification 

2052 // The integer 2052 signifies an Edge 

int int int boolean // Number of points in the Spline 
// Originating Operator id number 
// Destination Operator id number 
// Stream indicator 1 = stream, 0 = state 

int int // a list of X, Y pairs for each point in Spline 

string int int int // name and RGB values for Spline color 

LABEL_STRING // see format for label below 
LATENCY_STRING // This field should be present for Streams only 
// it should not be present for states (SelfLoops) 

// Strings are specified as follows: 

int// length of the string excluding null terminator 

// the value that would be returned by strlen() 

char[]// the actual characters making up the string 

// this may contain any character but NO 

char[]// X name of print font defaults to 

// "*-courier-medium-r-*-100-* 

char[]// font family name default "Courier" 

int // font size default 10 

string int int int// name and RGB values for text color 
boolean// default position indicator 1 = default 
int int // Present only if default 
// position field is 0 
// text position x and y 
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// NOTE: if the length of a string is 0, i.e. no string has been 
// specified for a particular label, then all other fields 
// will be absent from the String specification 


EXAMPLE: 

An operator which has a label but no MET would look like this: 

2050 

1 

69 112 
35 35 

Black 0 0 0 

White 65280 65280 65280 
17 

Operator 

Number_l 

*-courier-medium-r-*-100-* 

Courier 

10 

Black 0 0 0 
1 
0 

NOTE: notice that the label string contains a newline character 
which is included in the string length. 


Following the list of Vertices and Edges, the editor state appears as 
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2098// The integer 2098 marks the end of the 
// Vertex and Edge list 

int int int int// x, y of view origin width, height of view 

string int int int// The editors current foreground color name and RGB 

string int int int// The editors current background color name and RGB 

char[]// X name of print font defaults to 

// "*-courier-medium-r-*-100-* 

char[]// font family name default "Courier" 

int // font size default 10 

Final Note: There should be no blank lines in the.graph file blank lines shown above 
are only for clarity. The editor expects each line to be formatted properly with no more or 
less information on each line. 

•graph file Grammar: 


graph: component_s 
END_MARKER NEW_LINE 
editor_state 

9 

component_s: component 
component_s 

9 

component: vertex I edge I comment 

9 

vertex: OPERATOR NEW_LINE 

op_id 

ellipse 

fg_color 
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bg_color 

label_text 

met_text 

edge: EDGE NEW_LINE 

num_points from_op to_op is_stream NEW_LINE 

point_s 

fg_color 

label_text 

latency_text 

9 

comment: COMMENT NEW_LINE 
comment_text 

9 

op_id:int NEW_LINE 

9 

ellipse :centerx centery NEW_LINE 
radiusx radiusy NEW_LINE 

9 

centerx: int 

9 

centery: int 

9 

radiusx: int 

9 

radiusy: int 

9 

fg_color: color 
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bg_color: color 


color: name red green blue NEW_LINE 
> 

namerstring 

red:int 

greenrint 

bluerint 

» 

num_pomts: int 

from_index:int 

to_index:int 

is_stream;boolean 

point_s: point point_s 

9 

point: X y NEW_LINE 

9 

x: int 

9 

y.'int 


56 



label_text:text 


niet_text:text 

latency_text:text 

comment_text:text 

j 

text: length 
text_body 

text_body: NULL 
1 

textstring 

font 

fg_color 

position 

y 

position: default 
I custom 
point 

y 

default: 0 NEW_LINE 

y 

custom: 1 NEW_LINE 

y 

length: int NEW_LINE 
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textstring: string NEW_LINE 

font:printname 

printfont 

printsize 

» 

printname: string NEW_LINE 

printfont: string NEW_LINE 

printsize: int NEW_LINE 
> 

def_position: boolean NEW_LINE 

editor_state:view_diniensions 

fg_color 

bg_color 

font 

view_dimensions: x y dimensions 
dimensions: width height NEW_LINE 

9 

width: int 

9 

height: int 
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int:[0-9]+ 


boolean:! 10 

string: [''NO ] 

NEW_LINE; Nn' 

OPERATOR: 2050 

EDGE:2052 

COMMENT:2057 

END_MARKER2098 


59 


60 



APPENDIX B: PSDL GRAMMER 


: The PSDL grammer is provided by Professor Luqi, Naval Postgraduate School in 
Monterey, California, and modified by Professor Valdis Berzins, Naval Postgraduate 
School in Monterey, California. 

7/28/94: Valdis Berzins 

Change op_id to allow adt operations to appear in the graph. 

Affected productions: 
op_id = id [“(“ [id_list] “I” [id_Ust] “)”] 


Restrict id’s representing ada operator names to include an integer suffix representing 
a unique id. Restrict psdl operator names to include two integer suffixes, the first repre¬ 
senting a unique id and the second representing an instance number. The instance number 
is zero for all operator declarations, and is nonzero for graph vertices, to represent opera¬ 
tions of a psdl type that appear more than once in the expanded graph. 

New productions: 

op_name = ada_op_name integer_literal 
ada_op_name = id integer_literal 

Affected productions: 

type_spec = “specification” [“generic” type_decl] [type_decl] 

{“operator” id operator_spec} [fonctionality] “end” 
operator = “operator” id operator_spec operator_impl 

type_impl = “implementation” type_name (“operator” id operator_impl} “end” 

operator_impl = “implementation ada” id “end” 

initial_expression = type_name “.” id [“(“ initial_expression_list “)”] 

expression = type_name “.” id [“(“ expression_list “)”] 

op_id = id [“(“ [id_list] “I” [idjist] “)”] 

11/14/91: Change entered by Charlie Altizer. 

The phrase “BY REQUIREMENTS” was changed to “REQUIRED BY.” 

Affected productions: 

reqmts_trace = “by requirements” id_list 
end Header 

psdl grammar 12/1/90 

Optional items are enclosed in [ square brackets ]. Items which may appear zero or more 
times appear in { braces }. Terminal symbols appear in “ double quotes “. Groupings 
appear in (parentheses). 
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************************************************************************ 


psdl 

= {component} 

component 

= data_type 
I operator 

data_type 

= “type” id type_spec type_impl 
type_spec 

= “specification” [“generic” type_decl] [type_decl] 
(“operator” op_name operator_spec} 
[functionality] “end” 

operator 

= “operator” op_name operator_spec operator_impl 
operator_spec 

= “specification” (interface) [functionality] “end” 


interface 

= attribute [reqmts_trace] 


attribute 

= “generic” type_decl 
I “input” type_decl 
1 “output” type_decl 

I “states” type_decl “initially” initial_expression_list 
I “exceptions” id_list 
I “maximum execution time” time 


type_decl 

= id_list “:” type_name [“,” id_list “:” type_name} 


type_name 
= id 

I id “[“ type.decl “]” 

id_list 

= id{“”id} 
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reqmts_trace 

= “required by” id_list 

functionality 

= [keywords] [informal_desc] [formal_desc] 
keywords 

= “keywords” id_list 


infonnal_desc 

= “description” “{“ text 

formal_desc 

= “axioms” text 

type_impl 

= “implementation ada” id “end” 

I “implementation” type_name {“operator” op_name operator_impl} “end” 
operator_impl 

= “implementation ada” ada_op_name “end” 

I “implementation” psdl_impl “end” 

psdMmpl 

= data_flow_diagram [streams] [timers] [control_constraints] 
[informal_desc] 

data_flow_diagram 

= “graph” (vertex] [edge] 

vertex 

= “vertex” op_id [“:” time] 

— time is the maximum execution time 


edge 


= “edge” id [“:” time] op_id “->” op_id 
- time is the latency 


op_id 

= [id “.”] op_name [“(“ [id_list] “I” [id_list] “)’l 
streams 
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= “data stream” type_decl 


timers 

= “timer” id_list 
control_constraints 

= “control constraints” constraint {constraint} 

constraint 

= “operator” op_id 

[“triggered” [trigger] [“if’ expression] [reqmts_trace]] 
[“period” time [reqmts_trace]] 

[“finish within” time [reqmts_trace]] 

[“minimum calling period” time [reqmts_trace]] 
[“maximum response time” time [reqmts_trace]] 

{constraint_options} 

constraint_options 

= “output” id_list “if’ expression [reqmts_trace] 

I “exception” id [“if’ expression] [reqmts_trace] 

I timer_op id [“if’ expression] [reqmts_trace] 

trigger 

= “by all” id_list 
I “by some” id_list 

timer_op 

= “reset timer” 

1 “start timer” 

I “stop timer” 

initial_expression_list 

= initial_expression {“,” initial_expression) 

initial_expression 
= “true” 

I “false” 

I integer_literal 
I real_literal 
I string_literal 
I id 

I type_name op_name [“(“ initial_expression_list “)”] 
I “(“ initial_expression “)” 
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I initial_expression binary_op initial_expression 
I unary_op initial_expression 


binary_op 

= “and” I “or” I “xor” 

I it I 11 I I *y— ” 

I “+” I I “&” I “*” I “/” I “mod” I “rem” I “**” 


unary_op 


= “not” I “abs” I “-” I “+" 


time 

= integer_literal unit 


unit 

= “microsec” 

I “ms” 

I “sec” 

I “min” 

I “hours” 

expression_list 

= expression {“/’expression} 

expression 
= “true” 

I “false” 

I integer_literal 
I time 

I real_literal 
I string_literal 
I id 

I type_name “.” op_name [“(“ expression_list “)”] 
I “(“ expression “)” 

I initial_expression binary_op initial_expression 
I unary_op initial_expression 

op_name 

= ada_op_name “_” integer_literal 

ada_op_name 

= id “_” integer_literal 


id 
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= letter {alpha_numeric} 


real_literal 

= integer_literal integer_literal 

integer_literal 
= digit {digit} 

string_literal 

= “““ (char) “““ 

char 

= any printable character except 

digit 

= “ 0 .. 9 ” 

letter 

= “a.. z” 

I “A.. Z” 

I U 99 

alpha_numberic 
= letter 
I digit 

text 

= {char} 
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APPENDIX C: CODES 


Comin«nds.h 

#i£ndef oommands^h 
#defme commands.h 
#include ^nterViewsyStdMfeamii> 

#iDclude '*pdmenuJ)" 

// Declare imported types. 

class Editor, 
class MapK^: 
class State; 

// A Commands di^lays a PuUDownMcnuBar containing several 
//PuUDownMenuActivators each of which contains a PuUDownMcnu. 

class Commands: public PuUDownMmuBar ( 
public: 

Commands(Editor*, MapKey*, State*); 
piotected: 

void Init(Editof*, MapKey*, State*); 
void ReconfigO; 

I; 


#endif 


Cominands«c 


* Changes made by; Mehdi E. Rowshanaee 
#include *'commands.h'’ 
tinclude "editorh" 

#include 'Hpainth*' 

#include "istringb" 

#include ’’keystrokes.h" 

#include “mapipainth” 

#include "mapkeyii" 

#include "sllinesJi" 
tinclude "stateJi" 
tinclude "pdmenuJi" 

#include ^terView8A>oxJi> 
tinclude <lnterViews^ainterJ)> 
tinclude <[nterViews/saisorJi> 

#iDciudc <JntcrViewsAhapeJi> 

// An IdrawCommand enters itself into the MapKey so KeyEvents may be 
// mapped to IdrawCommands. 

class IdrawCommand : public PullDownMenuCommand { 
public: 

IdrawCommand(PullDownMcnuActivator*, const char*, char, Editor*, 

MapKcy* « nil); 

protected: 

Editor* editor, // handles drawing and editing operations 

I; 
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// IdrawCommand passes a printable string representing the given 
// character for its key string and enters itself into the character's 
// slot in the MapKey. 

IdrawCommand; JdrawConimand (PullDownMenuActivator* a, const char* n. char c. Editor* c, MapKey* mk) 
: PullDownMenuCommand(a, n« mk ? ndt->ToStr(c): 

i 

editor * e; 
if (mk I* nil) 

I 

ink‘>£nteKtbis, c); 

I 

I 


//New additions to Commands.c By; Mehdi Rowshanaec// 

// S^tl994 

class LabelCcHnmand : public IdrawCommand { 
public: 

LabelCommand (PullDownMenuActivator* a. Editor* e, MapKey* mk) 
: IdrawCommand(a, *ljiber', LABELCHAR, c, mk) {} 
void Execute (Event& e) { 
editor->ToolSet(LABELCHAR); 

1 

I; 


class LatencyCommand ; public IdrawCommand ( 
public: 

LatencyCommand (PullDownMenuActivator* a, Editor* c, MapKey* mk) 
: IdrawCommand(a, "Latency", LATENCYCHAR, c, mk) |) 
void Execute (Event& e) { 

editor->ToolSct(LAIENCrY CHAR); 

1 

I; 


class Key_WordCommand : public IdrawCommand { 
public: 

Key^WordCommand (PullDownMenuActivator* a. Editor* e, MapKey* mk) 
: IdrawCommand(a, "Key Word ", KEYWORDCHAR, c, mk) {I 

void Execute (EvcntA) { 

// cditor->HandleKcy„WordO; 


class StatesCorrunand : public IdrawCcKnmand { 
public: 

StatesCommand (PullDownMenuActivator* a. Editor* e, MapKey* mk) 
: IdrawCoramand(a, "States ".STATESCHAR , e, mk) {) 
void Execute (Event& e) { 

// editor-> HandleStates(e); 

I 

}; 


class InformalCommand ; puUic IdrawCommand { 
public: 

InformalCommand (PullDownMenuActivator* a. Editor* e. MapKey* mk) 
: ldrawCommand(a, "Informal "JNFORMALCHAR, c, mk) (I 

void Execute (Event&) ( 

// edito^> HandlelnformalQ; 

} 

I; 


class FormalCOmmand : public IdrawCommand ( 
ptd>lic: 

FotmalCommand (PullDownMenuActivator* a. Editor* c, MapKey* mk) 
: ldrawCommand(a, 'Totmal "JFORMALCHAR , e, mk) () 
void Execute (Evcnt&) { 

// editor-> HandleFozmalQ; 
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class Exccption_DcclCoinmand : puUic IdrawCommand | 
public: 

Exccption^DeclCommand (PullDownMcnuActivator* a, Editor* c, MapKcy* mk) 
: IdrawCommand(a, "Exc^tion_Dcclaiation'',EXCEPrCHAR, c, mk) () 
void Execute (Event&) { 

// editor->Exccption_DeclO; 

} 

); 


class Resct_’RmeiCommand : public IdrawCommand { 
public: 

Rcsct_Time!Command (PulIDownMeouActivatof* a, Editor* e. MapKcy* mk) 
: IdrawCominand(a, "Reset Timer" 4iESET_nMERCHAR , c, mk) {) 
void Execute (Evcnt& e) { 

// cditor->HandlcRcsct_Timer(e); 

I 

); 


class Stait_*fimerCOTimand : public IdrawCommand { 
public: 

StartjrimcrCommand (PullDownMcnuActivator* a. Editor* c. MapKcy* mk) 
: ldrawCoinmand(a, "StartJTimer ",START_TIMERCHAR, e, mk) () 
void Execute (Event* e) { 

// editor>>HandleStaitjrimer(e); 

I 

}; 


class StopJFimefCommand: public IdrawCommand { 
public: 

StopjnmcfCommand (PullDownMcnuActivator* a. Editor* c» MapKey* mk) 
: IdrawCommand(a, "Stop^Timer *',ST0P_T1MERCHAR, e, mk) {) 
void Execute (Event* e) ( 

// editor->HandlcStopJIimcKe); 

1 

I; 


class HourCommand: public IdrawCommand { 
public: 

HouiCommand (PullDownMcnuActivator* a. Editor* e. MapKcy* mk) 
: IdrawCommand(a, 'Hour " JIOURCHAR, c, mk) {| 
void Execute (Event* e) ( 
editor->ToolSet(HOURCHAR); 

1 

); 


class LHourCommand : public IdrawCommand ( 
public: 

LHourCommand (PullDownMcnuActivator* a. Editor* e, MapKcy* mk) 
: ldrawCommand(a, "Hour "JJIOURCHAR , c, mk) {| 
void Execute (Event* e) { 
editor->TooISet(LHOURCHAR); 

I 

I; 


class Micro_SecCommand: public IdrawCommand { 
public: 

Micro^SecCommand (PullDownMcnuActivator* a. Editor* c, MapKcy* mk) 
: IdrawCommand(a, "Micro Second", MICSECCHAR, e, mk) () 
void Execute (Event* e) ( 

editor->TooiSet (MICSECCHAR); 

1 

}; 


class LMicro_SccConunand: public IdrawCommand { 
pttolic: 

LMicro_SccCommand (PullDownMcnuActivator* a. Editor* c. MapKcy* mk) 
: IdrawCoinmand(a, "Micro Second", LMICSECCHAR, e, mk) {1 
void Execute (Event* e) { 

editor->ToolSet(LMICSECCHAR); 

I 
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); 


class Mili.SecCommand : public IdiawCommand { 
public: 

Mili.SecCommand (PullDownMenuActivator* a» Editor* c, MapKcy* mk) 
: ldrawCommand(a. "MilliSecond", MILSECCHAR, c, mk) {) 
void Execute (Event& e) { 

edilor->ToolSet (MILSECCHAR); 

I 

I; 


class KEnuteCommand : public IdrawComroand { 
public: 

NEnuteCommand (PullDownMenuActivator* a. Editor* e, MapKey* mk) 
: IdrawConimand(a, "Kfinutc", MINUTECHAR, e, mk) |) 
void Execute (Event& c) { 

editor->TooISct (MINUTECHAR); 

) 

I; 


class SecondCommand ; public IdrawCommand ( 
public: 

SecondCommand (PullDownMenuActivator* a. Editor* e. MapKey* mk) 
: IdrawCommand(a. "Second SECONDCHAR. e. mk) (} 
void Execute (Event& e) ( 

editor->ToolSet(SECONDCHAR); 


class LMilLSecCommand : public IdrawCommand { 
public: 

LMilLSecCommand (PullDownMenuActivator* a, Editor* e. MapKcy* mk) 
; Idra«<!bmmand(a, "MiUiSecond", LMILSECCHAR. e, mk) {| 
void Execute (Event& e) ( 

editor*>ToolSet(LM^ECCHAR); 

I 

I; 


class LMiouteCommand : public IdrawCommand ( 
public: 

LMinuteCommand (PullDownMenuActivator* a. Editor* e, MapKey* mk) 
; IdrawCommand(a, "Minute", LMINUIECHAR, e. mk) (} 
void Execute (Event& e) { 

editor->ToolSet(LMINUTECHAR); 

I 


class LSecondCommand : public IdrawCmiraand { 
public: 

LSecondCommand (PullDownMenuActivator* a. Editor* e, MapKey* mk) 
: IdrawCommand(a, "Second ", LSECONDCHAR, e, mk) () 
void Execute (Event& e) { 

editor->ToolSet (LSECONDCHAR); 


class IfCommand : public IdrawCommand { 
public: 

IfCommand (PullDownMenuActivator* a. Editor* e, MapKcy* mk) 
: IdrawCommand(a, Trigger IF'. IFCHAR, e. mk) {| 
void Execute (Events e) { 
editor->ToolSct(IFCHA R); 

I 
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>; 

class By_AIIComniand : public IdrawCommand 1 


public: 

By_AllCominand (PullDownMenuActivator* a. Editor* e, MapKey* tnk) 
: IdrawCoinmand(a, 'Triggcrd By All", BYALLCHAR, c, mk) i 1 
void Execute (Event& e) 1 
// edito^>HandleBy_All(e); 

1 

); 


class By_SomeCommand : public IdrawCommand ( 


public: 

By_SomeCommand (PullDownMenuActivator* a. Editor* e, MapKey* mk) 
: IdrawCommand(a, 'Triggerd By Some", BYSOMECHAR, e, mk) {) 
void Execute (Event* e) | 

// editor->HandleBy_Some(e); 

) 

); 


class IntcgerCommand: public IdrawCommand { 
public: 

IntcgerCommand (PullDownMenuActivator* a. Editor* e, MapKey* tnk) 
: IdrawCommand(a, '’Integer", IN' I jiGERCHAR, e, mk) (} 
void Execute (Event* e) ( 

// editor->HandIeInteget(e); 

1 

I; 


class RealCommand : public IdrawCommand { 
public: 

RealCommand (PullDownMenuActivator* a. Editor* e, MapKey* mk) 
: IdrawCommand(a, "Real", REALCHAR, e, mk) (} 
void Execute (Event* e) ( 

// edito^>HandleReal(e); 

) 

): 


class BooleanCommand : public IdrawCommand { 
public: 

BooleanCommand (PullDownMenuActivator* a. Editor* e, MapKey* mk) 
: IdrawCommand(a, "Boolean", BOOLEANCHAR, e, mk) |) 
void Execute (Event* e) ( 

// editor->HandleBoolean(e): 

I 

I; 


class User_DefinedCommand : public IdrawCommand ( 


public: 

User_DefinedCommand (PullDownMenuActivator* a. Editor* e, MapKey* mk) 
: IdrawCommand(a, "User Defined", USERDEblNEDCHAR, e, mk) (} 
void Execute (Event*e) ( 

// editor->HandleUser_DefinedeO: 

I 

I; 


class OpenCommand : public IdrawCommand ( 
public: 

OpenCommand (PullDownMenuActivator* a. Editor* e, MapKey* mk) 

: ldrawCommand(a, "Open...", OPENCHAR, e, mk) (I 
void Execute (Event*) | 

edito^>OpenO; 

I 

I; 

class CommitCommand : public IdrawCommand { 
public: 

CommitOmmand (PullDownMenuActivator* a. Editor* e, MapKey* mk) 
: ldrawCommand(a, "Commit", SAVECHAR, e, mk) (1 
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void Execute (Event&) { 

cditor->Commit(); 

I 

); 


class PrintCommand : public IdrawCommand ( 
public: 

PrintCommand (PullDownMcnuActivator* a, Editor* e, MapKey* mk) 
: ldrawCommand(a, "Print..", PRINTCHAR, e, mk) {1 
void Execute (EvcntA) ( 

cditor->PrintO; 

1 

); 


class QuitCommand : public IdrawCommand ( 
public: 

QuitCommand (PullDownMoiuActivator* a. Editor* e, MapKey* mk) 
: IdrawCommand(a, "Quit", QUITCHAR, e,mk) {| 
void Execute (Evait& e) { 

cdito^>Quit(e); 


}; 


class DeleteCommand : public IdrawCommand ( 
public: 

DeleteCcunmand (PullDownMcnuActivator* a. Editor* e, MapKey* mk) 
: IdrawCommand(a, "Delete", DELETECHAR, e, mk) {} 
void Execute (Event&) { 

editor>>DeleteO: 

1 

I; 


class SelectAllCommand: public IdrawCommand { 
public: 

SelectAllCommand (PullDownMcnuActivator* a. Editor* e, MapKey* mk) 
; IdrawCommand(a, "Select All". SELECTALLCHAR, c, mk) {| 
void Execute (EventA) { 

editor->SelectAll(); 


I; 


class FontCommand : public IdrawCommand { 
public: 

FontCommand (PullDownMcnuActivator* a. Editor* c, IFont* 0 
: IdrawCommand(a, f->GctPrintFontAndSizcO. V)', e) { 
font * f; 

I 

void Execute (Event&) | 

editor'>SetFont(f<mt): 

} 

protected: 

void Reconfig 0 ( 

Font* f * *font; 
if (ouq)ut->GetFont() 1= f) { 

Painter* copy * new Paintcr(output); 
copy-^eferencc(); 

UorBf(output); 
output« copy, 
output->Se^ont(0; 

I 

IdrawCommand::ReconfigO; 

1 

void Resize 0 ( constant left pad to Ime up entnes 

const int xpad ■ 6; 
namc_x * xpad; 

namely * (ymax - output->GctFontO->Hc!ght() + 1) / 2; 
kcy_x * key_y » 0; 

I 

IFont* font; // s^res font to give Editor 

1 ; 

sutic const int PICXMAX * 47;// chosen to minimize scaling for canvas 
static const int PICYMAX » 14; 
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class PattemCommand : public IdrawCommand { 
public: 

PattcmCommand (PulIDownMcnuActivator* a. Editor* c. IPattcm* p. State* s) 
: IdrawCommand(a, "None", V)*, c) { 

fgcolor = s->GctFgColoK); 
bgcolor « s->GctBgColoi()l 
pattern p; 
patindic = nil; 


-PattemCommand () { 

Unref(patindic); 

1 

void Execute (Evoit&) ( 

editor->SetPattem(pattem); 


protected: 
void Reconfig 0 ( 

IdrawCoininand::Reconiig(); 
if (patindic anil) | 

patindic ■ new Paintei^ou^ut); 
patindic->ReferenceO; 
patindic->SctO)lofs(*fgcolor, *bgcolor); 
patindiC'>SetPatteni(*pattem); 

I 

I 

void Redraw (Coord 1, Coord b. Coord r. Coord t) ( 
if (pattcm->NoocO) I 

IdrawC(mimand::Redraw(l, b, r, t); 

} else { 

output>>GcarRect(canvas, 1, b. r, t); 

patindic->FillRect(canvas,namc_x,name_yjimax-namc_x,ymax*name_y); 

outpot->Rect(canvas. name.x, name_y, xinax-namc_x, ymax-namc_y); 


I 

IColor* fgcolor, 
IColor* bgcolor; 
IPattem* pattern; 
Painter* patindic; 

1 ; 


// stores initial foreground color 
//stores initial background color 
// stores pattern to give Editor 
// fills rect to demonstrate pat's effect 


class CoIorCommand : public IdrawCommand | 
public: 

CoIorCommand (PulIDownMcnuActivator* a. Editor* e, IColor* c) 

: IdrawConimand(a, c->GctNamc(), 'NO', c) { 
key*" 
color s c; 
colorindic * nil; 

I 

•^^loiCommand () | 

key « nil; 

Unref(colorindic); 

) 

protected: 
void Reconfig () { 

IdrawCoraroand::ReconfigO; 
if (colorindic ** nil) { 

colorindic ■ new PainteKoutput); 
colorindic'>ReferenceO; 

coiorindic->SetColors(*color,coloTindic->GetBgColor()); 

I 

I 

void Redraw (Coord 1, Coord b. Coord r, Coord t) { 

IdrawO>inmand::Redraw(l, b, r, t); 

colorindic->FillRcct(canvas. key_x. kcy_y, xmax-namc_x, ymax'namc_y); 
output->Rect(canvas. key_x, key_y. xmax-namc_x, ymax-name_y); 

IColor* color, // stores color to give Editor 

Painter* colorindic;// fills rect to demonstrate color’s effect 

}; 

class FgColorCommand : puNic CoIorCommand { 
pi^lic: 

FgColorCommand (PulIDownMcnuActivator* a. Editor* e, IColor* c) 

: ColorCommand(a, e, c) {) 
void Execute (Event&) { 

editor>>SetFgColor<color); 
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class BgColoiCommand: public ColoiCommand { 
public: 

B gColorCommand (PullDo wnMenuActivator* a. Editor* e. IColor* c) 
: ColorCoininand(a» c, c) {} 
void Execute (Evcnt&) { 

editor->SetBgColor(coior); 

I 

}; 


class ReduccCommand : public IdrawCommand { 
public: 

ReduceCommand (PullDownMenuActivator* a, Editor* c, MapKcy* mk) 
: IdrawConimand(a, "Reduce", REDUCECHAR, e, mk) {) 
void Execute (Event&) { 

cditor->Reducc(); 



class EnlargeCommand: public IdrawCommand { 
public: 

EnlargeCommand (PullDovmMenuActivatoi* a. Editor* e. MapKey* mk) 
: ldrawCommand(a, "Enlarge", ENLARGECHAR, e, mk) {} 
void Execute (Event*) | 

editor->EnlatgeO: 

1 

); 


class NormalSizeCommand : public IdrawCommand | 
public: 

NormalSizeCommand (PullDownMenuActivator* a. Editor* e. MapKey* mk) 
: IdrawCommand(a, "Normal Size", NORMALSEECHAR, e, mk) (} 
void Execute (Event*) ( 

editor->NotmalSizeO; 

1 


class ReduceToRtCottunand : public IdrawCommand { 
public: 

ReduceToRtCommand (PullDownMenuActivator* a. Editor* e, MapKey* mk) 
: IdrawCommand(a, "Reduce To Rt", REDUCETOFTTCriAR, e, mk) () 
void Execute (Event*) { 

editor->ReduceToFitO; 

) 

1 ; 


class CenterPageCommand : public IdrawCommand ( 
public: 

CenterPageCorrunand (PullDownMenuActivator* a. Editor* e, MapKey* mk) 
: IdtawCommand(a, "Center Page", CENTERPAGECHAR, e, mk) |) 
void Execute (Event*) | 

editor^>CentetPageO; 

I 

I; 


class RedrawPageCorrunand : public IdrawConunand ( 
public: 

RedrawPageCommand (PullDownMenuActivator* a. Editor* e, MapKey* mk) 
: IdrawCommand(a, "Redraw Page", REDRAWPAGECHAR, e, mk) |) 
void Execute (Event*) { 

editor->RedtawPage(); 


I; 

class GriddingOnOffCommand : public IdrawCommand { 
public: 

GriddingOnOffCommand (PullDownMenuActivator* a. Editor* e, MapKey* mk) 
: IdrawCommrmd(a, "Gridding on/off", GRIDDINGONOFFCHAR, c, mk) () 
void Execute (Event*) | 

editor->GriddingOnOffO; 

I 

I; 
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class Grid\^blelnvisibIeCommand : public IdrawCommand ( 
public: 

GridN^blcInvisibleCommand (PullDownMenuActivator* a,Editor* e,MapKcy* mlc) 

: IdrawCommand(a, "Grid visibicrinvisible", GRIDVISIBLEINVISIBLECHAR* e, mk) (J 
void Execute (Event&) { 

e<litor->GridVisibleInvisibleO; 

1 


class GridSpacingCommand : public IdrawCommand { 
public: 

GridSpacingCommand (PullDownMenuActivator* a, Editor* e, MapKey* mk) 
: IdrawCommand(a, "Grid spacing...", GRIDSPACENGCHAR, e, mk) 11 
void Execute (Event&) ( 

editor->GridSpacing(); 


1 : 

class OrientationCommand : pi^lic IdrawCommand { 
public: 

OricntationC^jmmand (PullDownMenuActivator* a. Editor* c, MapKcy* mk) 
: IdrawCommand(a, "Orimtation", ORIENTATIONCHAR, c, mk) {\ 
void Execute (Event&) { 

editor’>Orientation(); 



class ShowVersionCkmimand : public IdrawCommand ( 
public: 

ShowVersionCommand (PullDownMenuActivator* a, Editor* e, MapKey* mk) 
: IdrawCommand(a,SHOWVERSIONCHAR, c, mk) ( 

Ltsten(noEveots); 

I 

void Execute (Event&) ( 

editor->ShowVersionO; 

I 

protected: 
void Reconfig 0 ( 

shape->width » shape>>height > 0; 

I 

I; 


// Commands creates its commands. 

Commands::Commands (Editor* e, MapKey* mk. State* s) ( 

Init(e, mk, s); 

) 

// Init creates the activators and commands, inserts the commands into 
// menus, gives the menus to the activators, and inserts the activators. 

void Commands:driil (Editor* c, MapKey* mk. State* state) 

i 


PullDownMenuActivator* property* new PullDownMenuActivatoKthis, ’Property"); 
PullDownMenuActivator* piot • new PullDownMcnuActivator(this, "Prototype"); 
PullDownMenuActivator* edit ■ new PuIlDownMenuActivator(this, "Edit" ); 
PullDownMenuActivator* graphics - new I^lllDownMcnuActivator(this. "Graphics"); 
// PullDownMenuActivator* pat ■ new PullDownMcnuActivator(this, "Pattern" ); 
PullDownMenuActivator* option * new PullDownMenuActivator(this, "Optirm" ); 


Scene* propertymenu » new VBox; 

PullDownMenuActivator* constraini_by * new PullDownMenuActivator (property, "Constraint^By "); 
PullDownMenuActivator* operator_spec * new PullDownMenuActivator (property, "Operator Specs"); 
PullDownMenuActivator* stream * new PullDownMenuActivator (property, "Stream "); 

propertymenu -> Insert (constiaint_by); 

// propertymenu -> Insert (new PuUDownMenuDivider); 
propertymenu -> Insert (stream); 

// propertymenu •> lr»ert (new PuUDownMenuDivider); 
propertymenu -> Insert (opcrator_spec); 
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Scene •op_spcc_mcnu * new VBox; 


PullDownMcnuActivator *op_spec_infonnal * new PullDownMcnuActivator (operator_spcc, "Infonml"); 
PullDownMenuActivator *op_spec_fonnal * new PullDownMcnuActivator (opcrator_spcc, "Formal"); 
PullDownMcnuActivator *op_spec_gencric *= new PullDownMoiuActivator (opcrator_spcc , "Goieric "); 
PullDownMcnuActivator •op_spcc_input * new PullDownMoiuActivator (opeiator_spec, "Input "); 
PullDownMcnuActivator *op_spec_output * new PullDownMoiuActivator (operator_8pec , "Output "); 
PullDownMcnuActivator *op_spcc_mct « new PulIDownMoiuActivator (opcrator_spec, "M E T "); 
PullDownMcnuActivator •latency « new PullDownMenuActivator (stream , "Latency "); 

op_spec_m«iu -> Insert (new Key_WordCommand (opcrator_spec» c» mk)); 
op_spec_mcnu •> Insert (new StatesCommand ( operator_spcc, e. mk )); 
op_spcc_mcnu -> Insert (new InformaICommand( operator^spec, c, mk)); 
op_spec_menu -> Insert (new FormalCommand (operator_spec, c, mk)); 
op_spec_mcou -> Insert (op_spec_gcneric); 
op_spec_mcnu -> Insert (op_spec_input); 
op_spec_menu -> Insert (op_spec_output); 

op_spec_mcnu •> Insert (new ExceptionJDeclCommand (opcrator_spec» e» mk)); 
op_spec_mcnu -> Insert {op_spec_met); 

operator.spec -> SetMrau(op_8pec_menu); 

Scale •const_by_mcnu « new VBox; 

PullDownMenuActivator •const_by_trigger ■ new PullDownMcnuActivator (constraint_by, 'Tri^cr "); 
PullDownMenuActivator •const_by_pcriod • new MlDownMcnuActivator (constiaint_by, ‘Period "); 

PullDownMenuActivator •const_by_finish * new PullDownMenuActivator (constraint_by, "Rnish within"); 
PullDownMenuActivator •const_by_min ■ new PullDownMcnuActivator (constniint_by» "Min Call "); 
PullDownMenuActivator •const_t^_max ■ new PullDownMenuActivator (constraint_by, "Max Response Time"); 
PullDownMenuActivator •const_by_timer * new PullDownMenuActivator (constraint_by,‘Timer "); 

const_byjmenu •> Insert (const_by.trigger); 

const_by_mcnu -> Insert (new PuUDownMenuCommand (constraint.by, "Output Guard", "G")); 

const.by.mcnu •> Insert (consl.by.finish); 

const_by_mcnu -> Insert (const_by_min); 

const.by.mcnu -> Insert (const.by.max); 

const.by.mcnu •> Insert (const.by .period); 

const.by.mcnu •> Insert (new PuUDownMenuCommand (constraint.by, "Exception Condition", "X")); 
const.by jnenu •> Insert (const.byjimer); 
constraint.by -> SetMcnu (const.by^mcnu); 


Scene •strcam.menu * new VBox; 

stream.menu -> insert (new LabelCommand (stream, e, mk )); 
//stream.menu -> Insert (new PuUDownMcnuDividcr); 
stream.menu •> Insert (latency ); 
stream -> SetMenu (stream.menu); 

Scene •latency.menu » new VBox; 

latency.moiu -> Insert (new LHourCommand (l^toicy, e, mk)); 

If latency .menu -> Insert (new PullDownMenuDivider); 
latency .menu •> Insert (new LMinuteCommand (latency, e, mk )); 

// latency.menu -> Insert (new PullDownMenuDivider); 
latency .menu -> Insert (new LSecondCommand Oatency, e, mk )); 

// latency.menu -> Insert (new PullDownMenuDivider); 
latency.menu -> Insert (new LMili.SecCommand (latency, e, mk )); 
// latency.menu •> Insert (new PullDownMenuDivider); 
latency.menu -> Insert (new LMicro.SecCommand (latency, e, mk )); 
latency -> SetMcnu (latency.menu); 


Scene •triggcr.menu » new VBox; 

triggcr.mcnu -> Insert (new IfCommand ( const.by.trigger, e, mk)); 

triggcr.menu -> Insert (new By.AllCommand (oonsi.by.triggcr, e,mk)); 
triggcr.menu -> Iivseit (new By.SomeCommand (const.by.trigger, e, mk)); 
const.by.triggcr -> SetMenu (triggcr.mcnu); 

Scene •mct.mcnu « new VBox; 

mct.maiu •> Insert (new HourCommand (op.spec.mct, c, mk)); 

// mct.menu -> Insert (new PullDownMenuDivider); 

met.menu -> Insert (new MinuteCommand (op.spec.mct, e, mk )); 

// mct.menu -> Insert (new PullDownMenuDivider); 
met.menu •> Insert (new SecondCommand (op.spec.met, e, mk )); 

// mct.menu •> Insert (new PullDownMenuDivider); 
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met_nicnu -> Insert (new MiIi_SecCommand (op_spcc_inct, e, mk )); 

// met_mcnu -> Insert (new PullDownMenuDividcr); 

met_incnu -> Insert {new Micro_SecCommand (op_8pec_mct, e, mk )); 

op_^cc_met -> SetMenu (mct_mcnu); 

Scene •finish_menu * new VBox; 

finish_menu -> Insert (new HourCommand (const_by_fimsh, c, mk)); 

//finish_mcnu *> Insert (new PullDownMenuDividcr); 

finish.menu -> Insert (new MinuteCommand (oonst_by_fimsh, e, mk)); 

/Mnish_mcnu -> Insert (new PullDownMenuDividcr); 

finish.menu -> Insert (new SecondCommand (const_by_finish, e, mk)); 

/Mnish_mcnu -> Insert (new PullDownMenuDividcr); 

finish_menu -> Insert (new Mili^SecCommand (const_by_finish, c, mk)); 

/^ish_mcnu -> Insert (new PullDownMenuDividcr); 

finish_menu -> Insert (new Micro^SecCommand (const_by_finish, e, mk)); 

const__by_finish -> SetMenu (finish_mcnu); 

Scene *pcriod_mcnu * new VBox; 

period_menu *> Insert (new HourCommand (const_by j)eriod« c, mk)); 

/^eriod_mcnu -> Insert (new PullDownMatuDivider); 

period_menu -> Insert (new MinuteCommand (const_by_period, c, mk)); 

//pcriod_maiu -> Irsot (new PulIDownMcnuDivider); 

period_menu -> Insert (new SecondCommand (const_by_pcriod, e, mk)); 

//period_mcnu -> Insot (new PullDownMcouDivider); 

period_menu •> Insert (new Mili^SecCommand (const_by_period, c, mk)); 

/^eriod_menu -> Insert (new PullDownMenuDividcr); 

periodjnenu •> Insert (new Micro_SecCommand (constJbyj>eriod, e, mk)); 

const_by_pcriod -> SetMenu (pcriod_mcnu); 

ScCTie *min_mcnu -new VBox; 

min_maiu •> Irtsert (new HourCommand (corrstjbyjmrnt e, mk)); 

/Anin_menu -> Insert (new PullDownMenuDividcr); 

min.menu -> Insert (new MinuteCommand (const_by_min, e, mk)); 

/Anin_mcnu -> Insert (new PullDownM«iuDivider); 

min_meou •> Insert (new SecondCommand (const^byjmin, e» mk)); 

//min.menu •> Insert (new PulIDownMcnuDivider); 

min^menu -> Insert (new MilLSecCommand (const_by_min, c. mk)); 

//min_menu •> Insert (new PulIDownMcnuDivider); 

min_mcnu •> Insert (new Micro_SccCommand (const_by_miru e, mk)); 

consi_by_min -> SetMenu (inin_mcnu); 

Scene •max^menu « new VBox; 

max^menu -> Insert (new HourCommand (const.by_max, e, mk)); 

/Anax_menu •> Insert (new PulIDownMcnuDivider); 

max_menu -> Insert (new MinuteCommand (const^by^max, e, mk)); 

/Anax_mrau -> Insert (new PullDownMenuDividcr); 

max_menu -> Insert (new SectMidCommand (const_by_max, e, mk)); 

/Anax_menu -> Insert (new PulIDownMcnuDivider); 

max.menu -> Insert (new Mili^SecCommand (const_by_max, c, mk)); 

/Anax_menu -> Insert (new PulIDownMcnuDivider); 

max.menu •> Insert (new Micro_SecCotnmand (const_by_inax, c, mk)); 

const_by_max -> SetMenu (max_meou); 


Scene •gcneric_mcnu ■ new VBox; 

Scene *input_menu * new VBox; 

Scerre •output_menu *new VBox; 

generic_menu •> Insert (new IntegerCommand ( op_spec_gcncric»c jnk )); 

// gcncric_mcnu -> Insert (new PullDownMenuDividcr); 

generic.menu •> Lisert (new R'ealCommand (op_^)cc_generic, e jak .)); 

// generic_menu -> insert (new PullDownMenuDividcr); 

generic^menu •> Insert (new BooleanCommand (op_spcc_gcncric ♦ e onk )); 

// generic_menu -> Insert (new PulIDownMcnuDivider); 
generic.menu •> Irtsert (new User.DefinedCofnmand (op_^oc_gcneric, e 4 nk)); 

input_menu •>Insert (newIntegerCommand (<T_«?>ec_inpat .e^nk)); 

// input_menu -> Insert (new PullDownMenuDividcr); 
input.menu •> Insert (new RealCommaiul (opjBpec_ir^ul . c ^nk)); 

//input^menu -> Insert (new PullDownMenuDividcr); 
input_menu -> Insert (new BooleanCommand (opjBpcc_input ,e 4 nk)); 

// input^menu -> Insert (new PulIDownMcnuDivider); 
input_mcnu -> Insert (new Uscr^DcfincdCommand (op_spcc_input , c jnk )); 

output_menu •> Insert ( new IntegerCommand ( op_8pec_outpui, c ^nk )); 

// outpui_menu -> Insert (new PullDownMenuDividcr); 
output_menu •> Insert (new RealConunand (op_spec_output, e jnk )); 
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// ou^5ut_mcnu -> Insert (new PullDownMcnuDivider); 

output_mcnu -> Insert (new BooleanConunand (op_spec_ou^ut»c jmk )); 

// output_menu -> Insert (new PuIlDownMoniDivider); 
output_mcnu -> Insert (new User_DefincdCominand (op_spec_output»c jnk)); 
op spec gqieric -> SetMenu {generic_m«)u); 
op_spec_mput -> SetMenu (input_mcnu ); 
op_spec_output -> SetMenu (output_menu); 


Scene • timer_menu * new VBox; 

timer_menu •> Insert (new ResctJTiincrComniand {const_by_timcr ,c )); 
timer_maiu -> Insert (new StartjnmeiCommand (const_by_timer .c jnk )); 
tiincr_inaiu -> Insert (new Stop JlimcrCommand (const_by_timcr ,c jtik .)); 
const_by_timcr -> SetMenu( timer_m«iu); 

Scene* protmenu « new VBox; 
protmoiu •>Insert(new OpmCommand (prot, e, mk)); 
protmenu •>Insert(new CommitCommand (prot« e, mk)); 
protmoiu ->Insert(new PrintCommand (prot, e, mk)); 
protmenu “>InsertCnew PuIlDownMoiuDivider); 
protmenu ->Insert(ncw QuitCommand (prot, c, mk)); 

Scene* editmenu = new VBox; 

editmenu->Inseit(new DcleieCommand(cdit» e, mk)); 
editmenu->Insert(new SelectAl)Command(edit, e, mk)); 

Scene* graphiesmenu * new VBox; 

PuIlDownMenuActivator* font« new PulIDownMenuActivator (graphics, *Tont*’); 
PullDownMenuActivator* fgcolor* new PulIDownMenuActivator (graphics,’TPgColor"); 
PulIDownMenuActivator* bgcolor ■ new PullDownMenuActivator ( graphics , "BgColor"); 

Scale* fontmenu * new VBox: 

MapIFont* mf « state>>GetMapIFontO; 

for (IFont* f * mf->FirstO: !mf->AtEndO: f “ mf->NcxtO) 

( 

fontmenu*>Insert(ncw FontCommandffont, e. f)); 

I 


/• Scene* pattemmenu « new VBox; 

MapIPattem* mp « statc->GetMapIPattemO; 

for (IPattem* p • mp->Fiist(): Imp->AtEndO; p ■ mp->NextO) 

pattemmcnu*>Inseit(ncw PattcmCommandfpat, e, p, state)); 

!•/ 

Scene* fgcolormenu ■ new VBox; 

MapIColor* mfg * statc->GctMapIFgColorO; 

for (IColor* fg = mfg->FirstO: !rafg->AtEnd(); fg ■ mfg-:^extO) 

I 

fgcolormenu->Inseit(new FgC^lorCommandffgcolor, e, fg)); 

} 


Scene* bgcolormcnu « new VBox; 

MapIColor* mbg = state->GetMapIBgColor(): 

for (IColor* bg = mbg->FirstO: lmbg->AtEndO: bg = mbg->NextO) 


I 

» 


bgcolormenu->Inscrt(new BgColorCommandfbgcolor, c, bg)); 


font >> SetMenu (fontmenu); 
fgcolor -> SetMenu (fgcolormenu); 
bgcolor •> SetMenu (bgcolormenu); 

graphiesmenu -> Insert (font); 
graphiesmenu -> Insert (fgcolor); 
graphiesmenu >> Insert (bgcolor); 


Scene* optionmenu » new VBox; 

optionmcno->Insert(new ReduceCommand (option, e, mk)); 

optionmenU'>Insert(new EnlargeCommand (option, e, mk)); 

optionmcnu->Insert(new NormalSizeCommand (option, c, mk)); 

optionmenu->lnsert(new ReduceToFitCommand (option, e, mk)); 

optionmcnu*>Insert(new C!enteiPageCotnmand (option, c, mk)); 
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optioninenu>>lnsert(new RedrawPageCommand (option, e, mk)); 

optionmenu->ln5eit(new PullDownMenuDivider); 
optiofimenu->lnser^new GiiddingOnOfTCommand (option, e, mk)); 
optioiimenu->Lisert(new Grid\^siblelnvi8ibieCommand(option, e, mk)); 
optionmenU’>Inseft(new GridSpacingCommand (option, e, mk)); 
optionmenu->lQ5eit(new OrientationCommand (option, e, mk)); 
optionmenu>>Insert(new ShowVersionCommand (option, e, mk)); 


property -> SctMenu (propertymcou); 
plot •> SetMenu (protmenu); 
edit •> SetMenu (editmenu); 

// pat •> SetMmu (pattemmenu); 
giaphics>>SetMenu(giaphicsmenu); 
option •> SetMenu (optionmenu); 


Scene* activators « new HBox; 

activatois->Insert(property); 

activatoiS'>lnsert(prot); 

activatoiS'>Inseit(edit); 

activators*>lnseit(graphics): 

// activatois->lnseit(font); 

// activators->Inseit(pat); 

// activatoi8*>lnseit(fgcolor); 

// activatois->Inseit(bgcoIor); 
activatois->Insen(option); 

Inseit(activators); 

I 


// Reconfig makes Commands' shape unstretchable but shrinkable. 

void Commands::Reconfig () { 

PutlDownMenuBan:Reconfig(); 

8hape->Rigid(hfil, 0,0,0); 


Commentlbth 


#ifiidef commentlist.h 
#define commentlist^h 


#include "listh" 


class Selection; 
class TextSelection; 

class CommentNode: public BaseNode { 
public; 

CommcntNodc(TextSeIcction* ts) | txtsel >Bts; ) 
boolean SameValueAs(void* p) { return txtsel ■■ p; } 
TextSelection* GetSelectionO | return txtsel; } 

protected: 
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TcxtSelcction* txtsel; // points to an operator selection 

}; 


class CommentList: public BaseList { 
public: 

G)mmentList(); 

void Appcnd(CommentNodc •); 
CommentNode* Rrst(); 
CommcntNodc* LastQ; 
CommentNode* Prev(); 
CommentNode* Next(); 
CommentNode* GetCurQ; 
CommentNode* Index(int); 
void Remove(TextSelection*); 
void SeK^urCTextSelection*): 

): 


inline void CommentList::Append(CommentNode *cn) { 
BaseLi8t::Append(cn); 

} 


inline CommentNode* CommcntList::Rfst() { 
return (CommoitNode*) BaseList:dFirst(); 

I 


inline CommoitNode* CommmtList::LastO { 
return (CommentNode*) BaseList: J.astO; 

I 

inline CommentNode* C!ommentList::Prev() { 
return (CommentNode*) BaseList: J^ievQ: 

I 

inline CommentNode* CommentList::NextO ( 
return (CommentNode*) BaseList: J^extQ: 

I 

inline CommentNode* CommcntList::GetCurO { 
return (CommentNode*) BaseList::GetCurO; 

1 

inline CommentNode* Comm<mtList::Index(int index) ( 
return (CommentNode*) BaseList:Jndex(index); 

I 

#end 


Commentlbtc 


#include "commentlistii" 

#include "selectiorah" 

#include "sltexUi" 

C!ommentList::CommeotListO * BaseList() { 

1 

// Remove an operator from the list of operator selections 

void CommentLisi::Rcmove(TextSelection* ts) { 
SetCuKts); 
if(IAtEndO){ 

DclctcCurO: 

delete ts; 

1 

I 


void CommOTtLi8t::SetCur(TextSelechon *ts) ( 
for (CommentNode *00 » Rrst(); 1 AtEndQ; cn ■ NextQ) 
if (ts Mc cn->GetSelectionO) break; 

1 

dfd^defsJi 

tifadef dfd_dcfs_h 
#define dfd_defs_h 


#include <Inter\^ews/defsJh> 



// pixel radius of operator (ellipse) 

#define OperatorRadius 35 

// number of chaiacteis in PSDL lepmentation of operator 
#deline TXTBUFLEN 5000 

// max number of prototypes in prototype directoiy 
#define MAXPROTOTYPES 100 


// name of scratch file used to edit PSDL for operator 
fdefine PSDL_FILE "psdl.scratch" 

// maximum length of message for message block 
#define MAXMSGLEN ISO 

// name of scratch file used to write PSDL streams 
#define STR£AMS_FILE "streams^ciatch" 

// name of scratch file used to write PSDL mets 
#define MET_FILE "mets.sciatch" 

// name of scratch file used to write PSDL constraints 
#define CONSTRAINTS_FlLE "constraints^ratch" 

// name of file extensions 


#define GRAPH_EXT ".ps" 

#define GRAPH_EXT_LEN 3 
fdefine IMP_PSDL_EXT ".imp.psdl" 
#define IMP_EXT_LEN 9 
#define SPEC_PSDL_EXT ".spec.p6dl" 
#defineSPEC_EXT_LEN 10 
#define DFD_EXT ".graph" 

#define DFD_EXT_LEN 6 


// keywords to be inserted when creating PSDL 


fdefine OPER TKN 
fdefine SPEC TKN 
fdefine INPUTTON 
fdefine OUTPUT TKN 
fdefine ST.TKN 
fdefine MEr_TKN 
fdefine DESC.TKN 
fdefine TEXTJTKN 
fdefine END_TKN 
fdefine IMP_1KN 
fdefine GR_TKN 
fdefine VER_TKN 
fdefine EDGEJTKN 
fdefine ID_TKN 
fdefine EXT_TKN 


"OPERATOR " 

" SPECEFICATIONVn" 

" INPUTin" 

OUTPUrV 

" STATESVi UNDEfilNED ID:UNDEFINED TYPBn DOTTALLYVn UNDEFlNED_EXPRESSION\n" 
" MAXIMUM EXECUTION TIME " 

" DESCRIPTION" 

"( UNDEFINED_TEXT |V' 

"ENDNi" 

"IMPLEMENTAnONVn" 

" GRAPHin" 

" VERTEX" 

EDGE" 

"UNDEFINED_ID" 

"EXTERNAL" 

fdefine TYPE DECLJTKN "UNDEFINED_ID : UNDEFINEDJTYPE" 
fdefine IMP_^A_TKN " IMPLEMENTATION ADA " 
fdefine STREAM TKN " DATA STREAMVt" 
fdefine CONJTKN " CONTROL CONSTRAINTSVn" 

fdefine CON OP TKN " OPERATOR UNDEFINED_ID^" 


fdefine TRlGGERjnCN "TRIGGER CONDITION V 


fdefine TRIGGER_IF_TKN " TRIGGER IPVn " 

fdefine TRIGGER_BY_ALL_TKN " TRIGGER BY ALLVi" 

fdefine TRIGGER BY_SOME_TKN " TRIGGER BY SOMEVn " 

fdefine FORMAL_TKN " FORMAL \n" 

fdefine INFORMAL_TKN " INFORMALVn " 

fdefine PERIOD_TKN " PERIOD V 

fdefine FlNlSH_WmnN_TKN "FINISHWITHIN V 

fdefine MAX RES TTM.TKN " MAXXIMUM RESPONSE TIME \n" 

fdefine OUTPUT_GUARD_TKN " OUTPUT GUARIIw " 


// keywords to be used for search through PSDL text buffer. They are 
// difierent from those above because the text buffer can't ever locate 
// newlines 

fdefine INPUT SCH TKN "INPUr' 
fdefine SPECJCH.TKN "SPECTHCWnON" 
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#define OUTPUT.SCH.TKN "OUTPUT' 

#defineGEN_SCH_TKN "GENERIC 
#define STATES_SCH_TKN "STATES" 

#define EXCEPT_SCH_TKN "EXCEPTIONS" 

#define MET_SCH TKN "MAXIMUM EXECUTION TIME " 

#define MCP SChItKN "MINIMUM CALLING PERIOD" 
#defineMRT_SCH_TKN "MAXIMUM RESPONSE TIME" 
#defineKEY_SCH_TKN "KEYWORDS" 

#defineDESC SCH_TKN "DESCRIPTION" 

#defineAX_SCH_TKN "AXIOM" 

#defineEND_SCH_TKN "END" 

#deene STREAM_SCH_TKN 'DATA STREAM" 
idefineTlMER.SCH.TKN 'TIMER" 

#defineCON_SCH_TKN "CONTROL CONSTRAINTS" 

#define TRIGGER_SCH_TKN " TRIGGER CONDITION " 

fdeBne FINISH_'WITHIN_SCH_TKN " FINISH WITHIN " 
#defineTRIGGER_IF_SCH_TKN "TRIGGERIF" 
#defineTRIGGER_BY_ALL_SCH_TKN" TRIGGER BY ALL " 
#defineTRIGGER_BY_SOME_SCH_TKN " TRIGGER BY SOME " 

#define FORMAL_SCH_TKN " FORMAL" 
#defineINFORMAL_SCH_TKN "INFORMAL" 
#definePER10D_SCH_TKN "PERIOD" 

#define MAX_RES_TIM SCCH.DCN " MAXXIMUM RESPONSE TIME " 
#defineOUTPUT_GUARb_SCH_TKN “ OUTPUT GUARD " 


fdefine MET_SDE "psdl_editor" 
•define STREAMS_SDE "psdl_editor" 
•define CONSTRAINTS_SDE "psdLeditor" 
•define SPECIFICATION_SDE "psdLeditor" 
•endif 


dfd classesJi 


• Changes made by: Mehdi Rowshanaee 

• September 1994 

» 

•/ 

#i£ndef dfddasses.h 
#defuie dfdclasses^h 

static const int OPERATOR * 2050; 
static const int TERMINATOR ■ 2051; 
static const int DATAFLOW_SP!LINE * 2052; 
static const int SELFLOOP ■ 2053; 
static const int LABEL_OP «« 2054; 
static const int LABEL_DF * 2055; 
static const int LAB£L_SL «2056; 
static const int CXJMMENT ■ 2057; 
static const int MET_OP « 2058; 
static const int LAr_DF * 2059; 
static const int END_MARKER ■ 2098; 
static const int NONE *2099; 

static const int TRIG_IF_CONS « 2101; 
static const int TRIG_AL_CX)NS ■ 2102; 
static const int TRIG_SM_CONS « 2103; 

#endif 


dialogboxJi 


#ifhdef dialogbox^h 
#define dialogbox.h 

#include <IntcrVicws/filcchooscr.h> 


// Declare imported types. 

class ButionState; 
class IMessage; 
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class StringEditor; 

// A DialogBox knows how to set its message and warning text and how 
// to pop up itself over the underlying Inteiactor. 

class DialogBox : public MonoScene ( 
pi^lic: 

void $etMes8age(const char* « niK const char* « nil); 
void SetWaming(const char* « nil« const char* » nil); 
void SctUnderiyingCIntcractor*); 

protected: 

Dialo^ox(IntcractoT*, const chat* » nil); 

void PopUpO; 
void DisappearQ; 

IMessage* message; //displays message text 

message* warning; // displays warning text 

Interactor* underlying;// we'll insert ourselves into its parent 


// A Messager displays a message until it's acknowledged. 

class Messager: public DialogBox ( 
public: 

Messager(Interactor*, const diar* « nit); 

«*MessagerO; 

void DisplayO: 

protected: 

void lnit(); 
void ReconfigO; 

ButtonState* ok; // stores status of "ok" button 

Interactor* okbutton;// displays "ok" button 


I; 


// A Confinner displays a message until it's conhimed or cancelled. 

class Confirmer: public DialogBox ( 
pid)lic: 

Confirmer(lnteractor*, const char* ■ nil); 

-Confitmer(); 

char ConfirmO; 

protected: 

void InitQ; 
void ReconfigO; 

ButtonState* yes; // stores status of "yes" button 

ButtonState* no; //stores status of "no" button 

ButtonState* cancel*^/ stores status of "cancel" button 

Interactor* yesbutton*^/ displays "yes" button 

Inteiactor* nobutton;// displays "no" button 

Inteiactor* cancelbutton;//displays "cancel" button 


// A Namer displays a string until it's edited or cancelled. 

class Namer: public DialogBox { 
public: 

Namerflnteractor*, const char* « nil); 

-NamerO; 


83 


char* Edit(constchar*); 

protected: 

void InitQ; 
void ReconfigO; 

ButtonState* accept;// stores status of "accept*' button 
ButtonState* cancel;// stores status of "cancel" button 
Interactor* acceptbutton;//displays "accept" button 
Interactor* cancelbutton;//displays "cancel" button 
StringEditor* stringeditor,// displays and edits a string 


// A Finder browses the file system and returns a file name. 

class Finder: public FileChooser { 
public: 

Finder(Intcractor*, const char*); 
const char* FindQ; 
protected: 

Interactor* InteriorQ; 

boolean Popup(Event&, boolean «true); 

protected: 

Interactor* underlying;// we'll insert ourselves into its parent 


I; 


// A Qiooser displays a set of choices and are displayed until one is 
// chosen or is cancelled. 

class Chooser: public DialogBox ( 
public: 

Chooser(Interactor*, const char*, const char*, const char*, const char*); 

-ChooserOl 

char OiooseQ; 

protected: 

void init(); 
void RectmfigO; 

ButtonState* bs.l; 

ButtonState* b6_2; 

ButtonState* cancel;// stores status of "cancel" button 
Interactor* button^l;// displays first button 
Interactor* button_2;// displays second button 

Interactor* cancelbutton;// displays "cancel" button 


// stores status of first button 

// stores status of second button 

ButtonState* b6_3; // stores status of third button 


Interactor* button_3; // displays third button 


I; 

#endif 


dialogbox.c 

#include "dialogbox.h" 

#inciude "istringii" 

#inciude <lnterViews/boxJi> 
#include <InterViews/buttonJi> 
tinclude <lnter\^ews/canvasJi> 
#include ^tcrViews/cvcnl.h> 
tinclude ^terVicws/Tonth> 
tinclude <InterViews/frameii> 
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#include <Inter^^ews/glue.h> 
tinclude <IntcrVicws/messageJh> 

#include <Intcr\ricws/paintcrio 
tinclude <IntcrVicws/sensorJi> 

#include ^terVtews/5hapeJi> 
tinclude <lnterVicws/streditonh> 
tinclude «dnterViews/worldJi> 

tinclude ^terViews/Std/os/fs.h> 
tinclude <sys/param.h> 

/* 

* An IMessage displays its own text, not somebody clse's. 

•/ 

class IMessage: public Message { 
public: 

lMessage(const diar* » nil. Alignment a * Center); 

-IMessageO; 

void SetText(const char* « nil, const char* « nil); 
protected: 

char* buffer, /* stores own copy of text •/ 

I; 


r 

* IMessage creates a buffer to store its own copy of the text 

•/ 

IMessage:^Message (const char* msg. Alignment a): MessageftiU, a) | 
buffer = strdupfmsg ? msg ; 
text >= buffer 

I 


/* 

* Free storage allocated for the text buffer. 

*/ 

IMessage:;-IMessage 0 I 
delete buffer 

I 

/* 

* SetText stores the new text and changes the IMessage's shape to fit 

* the new text's width. 

*/ 

void IMessage::SetText (const char* beg, const char* end) ( 
beg ■= beg 7 beg: 
end = end ? end: 
delete buffer 

buffer - new char[strlen(beg) + stiienfend) +1]; 
strcpyfbuffer, beg); 
strcat(bufler, end); 
text ■* buffer 

if (canvas != nil && canvas->StatusO *= CanvasMapped) { 

ReconfigO; 

PatentO->Change(this); 

1 

I 

/* 

* DialogBox creates two IMessages to display a message and a warning 

* and stores its underlying Interactor. DialogBox won't delete the 

* IMessages so its derived classes can put them in boxes which will 

* delete them when the boxes are deleted. 

*/ 

DialogBoxrDialogBox (Inteiactor* u, const char* msg) ( 

SetCanvasType(CanvasSaveUnder); /* speed up expose redrawing if possible */ 

input K allEvents; 

inpui->RefeteoceO; 

message - new IMessage(msg); 

warning ■ new IMessage; 

underlying - u; 

1 
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/* 

* SetMessage sets the message's text. 

•/ 

void DialogBox::SetMessage (const char* beg, const char* end) { 
message->SetText(beg, end); 

) 


r 

* SetWaming sets the warning's text. 

•/ 

void DialogBox::SetWaming (const char* beg, const char* end) ( 
waiiiing->SetText(beg, end); 

) 

/* 

* SetUnderiying sets the underlying Interactor over which the 

* DialogBox will pop up itself. 

*/ 

void DialogBoxnSetUnderlying (Interactor* u) ( 
underlying = u; 

1 


/* 

* PopUp pops up the DialogBox centered over the underlying 

* Interactor's canvas. 

*/ 

void DialogBox.-JopUp 0 ( 

World* world = underlying->GetWoildO; 

Coord X, y, 

underlying->Align(Centcr, 0,0, x, y); 
underlying->GctRclative(x, y, world); 
world->InscrtTransicnt(this, underlying, x, y. Center); 

I 


f 

* Disappear removes the DialogBox. Since the user should see 

* warnings only once. Disappear cleats the warning's text so the next 

* PopUp won't display it 

*/ 

void DialogBox: Jhsappear 0 ( 

ParentO->Remove(this); 

SetWamingO; 

SyncO; 

I 


/* 

* Messager creates its button state and initializes its view. 

*/ 

Messager::Messager (Interaclor* u, const char* rasg); DialogBox(u, msg) ( 
ok - new ButtonState(false); 
okbutlon •* new PushButton(" OK ", ok, true); 

InitO; 

I 


r 

* Free storage allocated for the message's button state. 

*/ 

Messager::-Messager 0 ( 

Unref(ok); 

I 

/* 

* Display pops up the Messager and removes it when the user 

* acknowledges the message. 

*/ 

void Messager JJisplay () 1 
ok->SetValue(false); 
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PopUpO; 


int okay » false; 
while (lokay) ( 

Event e; 

Read(e); 

if (e.eventType = KeyEvent && e.len > 0) ( 
switch (e.keystnng[0]) | 

case V: /* */ 

caseW: I* Hi*! 

ok->Set\&lae(true); 

break; 

default: 

break; 

I 

) else if (e.tatget — okbutton) { 
e.target->Handle(e); 

I 

ok->GetValue(okay); 

I 

DisappearO; 

) 

/* 

• Init composes Messager's view with boxes, glue, and fiames. 

•/ 

void Messagendnit 0 I 
SetClassName("Messager"); 

VBox* vbox = new VBox; 
vbox->Align(Center); 
vbox->Inseit(new VGlue); 
vbax->Insert(waming); 
vbox->Inseit(new VGlue); 
vbox->Insert(message); 
vbox->Insert(new VGlue); 
vbox->Insert(okbunon); 
vbox->Insert(new VGlue); 

Inseitfnew Framefvbox, 2)); 

) 

/* 

* Reconfig pads Messager's shape to make the view look less crowded. 

•/ 

void Messager:Reoonfig 0 ( 

DialogBox:;ReconfigO; 

Font* font ~ ou^ut->GelFont(); 
shape->width +« 2 • font->Width("mmmm"); 
shape->height +« 4 * font-otieightO; 

I 

/* 

• Confirmer creates its button states and initializes its view. 

•/ 

Confiimer::Confirmer (Interactoi* u, const char* prompt): DialogBoxfu, prompt) ( 

yes — new ButtonStateffalse); 

•> new ButtonStateffalse); 

cancel • new ButtonStateffalse); 

yesbutton » new PushButtonf' Yes ", yes, tnie); 
nobution = new PushButtonf" No ", no, true); 
cancelbutton ~ new PushButtonf'Cancel", cancel, tnie); 

InitO; 

I 

r 

* Free storage allocated for the button states. 

•/ 

Confinner;;-Confimier 0 I 
Unreffyes); 
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Unrcf(no); 

Unref(canccl); 

I 

Confimi pops up the Confimer, lets the user confimi the message or 
• not, removes the Confiimer, and returns the confirmation. 

•/ 

char ConfirmertConfirm () I 
yes->SetValue(false); 
no->SetValue(false); 
cancel->SetValue(false); 



HBox* buttons « new HBox: 
buttons->Insett(new HGlue); 
bottons->Insert(yesbotton); 
buttons->Insert(new HGlue): 
buttons->Insert(nobutton); 
buttons->Insert(new HGlue); 
bunons-rfnsert(cancelbutton); 
battons->Insert(new HGlue); 


VBox* vbox - new VBox; 
vbox->Align(Center); 
vbox->Insert(new VGlue); 
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vbox->Inseit(waming); 
vbox->Insert(new VGlue); 
vboX‘>Inscrt(messagc); 
vbox“>Inscrt(ncw VGlue); 
vbox->lnscrt(buttons); 
vbox->Inscit(new VGlue); 

lnseit(new Framc(vbox, 2)); 

} 


!* 

♦ Reconfig pads Confirmer's shape to make the view look less crowded. 

*/ 

void Confirmer::Reconfig () { 

I>ialogBox::ReconfigO: 

Font^ font« ou^ut->GctFontO; 
shape->width +* 4 • font->\Vidth('Wnmm"); 
shape->hcight +« 4 * font->HcightO; 

} 

/* 

* Namer creates its button states and initializes its view. 

*/ 

NamcniNamcr (Interactor* u, const diar* prompt): DialogBox(u, prompt) { 
acc^t s new Butt(mState(false); 
cancel new ButtonState(false); 
acceptbutton s new PushBuoonC’ OK ”, acc^t, true); 
cancelbutton » new PushButtonC'Cancel'', cancel, true); 
const char* sample * " 

stringeditor» new String£ditor(accept, sample, 'V)07VD1S”); 
stringeditor->Mcssage(‘‘”); 

InitO; 

} 


/• 

* Free storage allocated for the button states. 

•/ 

Namer.:-Namer () { 

Unref(acccpt); 

Unref(cancel); 

I 


f* 

* Edit pops up the Namer, lets the user edit the given string, 

* removes the Namer, and returns the edited string unless the user 

* cancelled it 

•/ 

char* Naraer.idit (const char* string) { 
accept->SetValue(false); 
cancel->SetValue(false); 
if (string 1* nil) { 

6tringedito^>Message(stnng); 

I 

stringed! tor->Select(0,6lrlcn(stTingeditor->TcxtO)); 

PopUpO: 

int accepted « false; 
int cancelled » false; 
while (laccepted && Icancelled) { 

striogeditor->EditO; 
accept->GetValue(accq)ted); 
if (accepted V)07') { 
accq)t->SetValue(false); 
cancel“>SetValue(true); 

) else if (accepted »= V)15') { 
accq)t->S^Value(true); 
cancel->SetValue(false); 

} else { 

Event e; 

Rcad(e); 

if (e.target n acceptbutton II e.target« cancelbutton) ( 
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c-targct->Handle(c); 

1 

I 

accq)t->GetValue(accepted); 

caiice)->GetValue(caiicel)ed); 


Disappear(); 

char* result * nil; 
if (accepted) { 

const char* text * stringeditor‘>Text(); 
if(text[0] !*=V)')I 
result s strdi^(text); 

I 

I 

return result; 

I 

/* 

* Init composes Namer's view with boxes, glue, and frames. 

•/ 

void Namendnit Q ( 

SetClassName("Namer*'); 

HBox* hboxedit« new HBox; 
hboxedit->Inscrt(new HGluc(5,0,0)); 
hboxedit->lnseit(stringeditor); 
hboxedit->Insert(new HGluc(5,0,0)); 

VBox* vboxedit» new VBox; 
vboxedit->Inseft(ncw VGlue(2,0,0)); 
vboxedit*>Insert(hboxedit); 
vboxodit->Inscrt(new VGlue(2,0,0)); 

HBox* buttons » new HBox; 
buttons->Inscft(new HGlue); 
buttons*>lnsert(accqptbutton); 
butions*>Insert(new HGlue); 
buttons«>Insert(cancelbutton); 
buttons*>ln8eit<new HGlue); 

VBox* vbox ■ new VBox; 
vbox->Align(Centcr); 
vbox->Insert(ncw VGlue); 
vbox->Insert(waming); 
vboX“>Insert(ncw VGlue); 
vbox->lnsert(message); 
vbox->Insert(ncw VGlue); 
vbox->Insert(ncw Framc(vboxcdit, 1)); 
vbox->Insert(new VGlue); 
vbox->Inscrt(buttons); 
vbox->Inscrt(ncw VGlue); 

vbox*>Propagatc(false);/* for reshaping stringeditor w/o looping */ 
Inseit(new Frame(vbox, 2)); 

I 


/• 

* Reconhg pads Namer's shape to make the view look less crowded. 
*/ 

void Namen:Reconfig 0 { 

Dia)ogBox::ReconfigO; 

Shape s e *stringeditor->GetShapeO; 
s.RigidO; 

stringed] tor*>Reshape(s); 

Font* font» output->GctFont0; 

8hape‘>width +» 2 * font->Width("mmmm‘’); 

8hape->height 4« 4 * font’>Height0; 

I 

static const char* abspath (const char* file « nil) { 
const int bufsize « MAXPATHLEN+1; 
sutic char buffbufsize]; 
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getcwd(buf, bufsize): 
strcat(baf, ‘Ty, 

if (file !« nil){ 
strcat(buf« file); 

) 

retum buf; 

I 


Finder: finder ( 

Inteiactor* u, const char* t 

): FileChooser<new ButtonStatc, abspathQ, 10,24, Center) { 
underlying « u; 

InitC"', t); 
lnseit(IntenorO); 

) 


static const char* ChdiilfNecessary (Finder* finder) { 
static char buffMAXPATHLEN+l]; 
const char* filmame « finder->ChoiceO; 
strcpy(buf, filaiame); 
diar* bufptr» stfTchr(buf,'/); 

if (bufptr != NULL) ( 

*bufptr« NO'; 
if (chdir(buO ** 0) | 
filename »•M-bufptr; 
finde^>Message(ab6path(filename)); 

I 

I 

finder«>SelectHleO; 

retum filename; 

I 

const char* Finder:find 0 { 
const char* name nil; 

Event e; 
if (Popup(e)) { 

name « ChdirIfNece$sary(this); 

1 

return name; 


Interactor* Hndendnterior 0 ( 

return new Frame(KleChoo8er::InteriorC' Open *'), 2); 

I 


boolean HnderifOpup (Eveat&, boolean) ( 

World* worid ■ underiying->GctWoiidO: 

Coord X, y; 

underlying>>Align(Center, 0,0, x, y); 
underlying->GetRe]ative(x, y, world); 
world«>lnsertTransient(this, underlying, x, y. Center); 
boolean accepted « AcceptQ; 
worid->Removc(this); 

SetTiUeC'"); 
retum accepted; 

I 


/• 

* Chooser creates its button states and initializes its view. 

*/ 

Chooser::Chooser (Interactor* u, const char* prompt, const dur* label_l, 

const char* !abcL2, const char* labcl_3): DialogBox(u. prompt) { 
bs_l * new ButtonState(fal5e); 

bs_2 ■ new BattonState(fal5e); 

bs_3 KnewButtonState(faUe); 

cancel ••newButtonState(false); 

button_l * new PushButton(labcl_l,bs_l, true); 

button_2 * new PudiButton0abel_2, bs_2, true); 

batton_3 ■ new PushButton(label_3, bs_3, true); 

cancelbutton B new PushButtonC Cancel ", cancel, true); 

InitO: 

I 
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r 

* Free storage allocated for the button states. 

*/ 


Chooscr:;~Chooscr 0 { 

Unrcf(bs_I); 

Unref(bs_2); 

Unref(bs_3): 

Unref(canccl); 

I 

f* 

* Choose pops up the Chooser, lets the user choose one of the buttons, 

* removes the Chooser, and returns the choice. 

V 


charChooser::Choose 0 { 
bs_l->SctValuc(falsc): 
bs_2->SetValuc(false); 

bs_3->Sct>^luc(£alse); 

cancel>>SetValue(false); 


PopUpO; 


int first« false; 
int second « false; 

int cancelled false; 

while (Ihrst && Isecond && Ithird && Icancelled) { 
Evoit e; 

Read(e); 

if (e.targct ** button_l H e.target 
e.target*>Handle(e); 

) 

bs_l ->GctValue(first); 
b6.2->GctValuc(sccond); 

canccl->GetValue(cancelled); 

) 


int thirds false; 


button_211 

e.target button_3 II e.target cancelbutton) { 


bs_3»>GctValue(thifd); 


DisappearO; 

char answer ^ 'c'; 

answer s first ? T: answer; 

answer» second ? 's’: answer, 

answer »third ? *t': answer, 

return answer; 

I 


/• 

* Init composes Chooser's view with boxes, glue, and frames. 

V 

void Cbooscrilnit Q { 

SctClassNameC'Chooscr"); 

HBox* buttons « new HBox; 
buttons->Inscit(ncw HGlue);* * 
butions‘>Inscrt(button_l); 
buttons->In5ert(new HGlue); 
buttons->lnscTt(button_2); 
buttcms->lnsert(new HGlue); 

t«ittons->ln5eit(butttMi_3); 
tHittonS’>lnseit(new HGlue); 

buaons->lnsert(cancelbutton); 
buttons>>Insert(new HGlue); 

VBox* vbox * new VBox; 
vbox->Align(Ccntcr); 
vbox->In8ert(new VGlue); 
v bo X •>lnsert( warning); 
vbox->Inscn(ncw VGlue); 
vbox->In8ert(message); 
vbox->lnsert(ncw VGlue); 
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vbox->lnseit(buttoiis); 
vbox->Insert(new VGluc); 

lnsert(new Frame(vbox, 2)); 

I 


/* 

* Reconfig pads Chooser's shape to make the view look less crowded. 

•/ 

void Chooser.iReconfig () { 

DialogBox::ReconfigO; 

Font* font * ou^ut->GctFontO; 
shape->width +■ 4 * font->Width("mmmm"); 
shape->height 4* 4 * font->Hcight(); 

) 


drawiiig.h 

#ifodef drawing_h 
#dcfine drawing_h 

tinclude ^terViews/Std/stdioii> 

#include <InterVtews/de£5ii> 

#include ^terViews/Graphic/cIassesJi> 

#include ^terViews/Std^treamJt> 

// Declare in^>ofted types. 

class BSplineSelection; 
class CcQterList; 
class CommentList; 
class DrawingView; 
class EdgeList; 
class Edge: 
class EllipseSelecdon; 
class Graphic; 
class Grouplist; 
class IBrush; 
class IBrushList; 
class IColon 
class IColorList; 
class Idraw; 
class IFoot; 
class IFontList; 
class IPattem; 
class IPattemList; 
class Page; 
class PictSelection; 
class RectSelection; 
class Selection; 
class SelectionList; 
class State; 
class Transfomier. 
class TextBuffer, 
class booleanList; 
class Vertex; 
class VertexList; 
class VertexNode; 
class Operator, 
class TextSelection; 
class World; 

// A Drawing contains the user's picture and provides the interface 
// through which editing operations modify it 

class Drawing | 
pid>lic: 

Drawing(double w, double h, double b); 

-DrawingO; 

boolean GetLandscapcQ; 

Page* GetPageO; 

void GctPicturcTr(Transfonmer&); 


SelectionList* GetSelectionListO; 


boolean Writablc(const char*); 
boolean Exists(const char*); 
void ClearPictur^); 

boolean ReadPicture(const char** State*); 
boolean PrintPicture(const char** State*); 
boolean WritcPicture(const char*. State*); 

SelectionList* ReadClipboard(State*); 
void WriteClipboardO; 

void GetBox(Coord&, Cooid&, Cooid&* Coord&); 

IBrushlist* GetBrushO; 

CaitcrList* GetCcntcrO; 

GroupList* GetChildrenQ; 

IColoiList* GetFgColorQ; 

ICoIod-ist* GctBgColorO; 

SelectionList* GctDupIicatesO; 
booleanlist* GetHllBgO; 

IFontList* GetFontO; 
int GetNomberOfGraphicsO; 

Groi^List* GetParentO; 

IPattcmlist* GetPattemO; 

SelectionList* GetPrevsO; 

SelectionList* GetSelections(); 

Selection* PickSclectionIntersecting(Coord, Coond); 

Selection* PickSelcctionShapedBy(Coord, Coord); 

SelectionList* PickSclcctionsWthin(Coord, Coord, Coord, Coord); 

void ClearQ; 
vend Extend(Selection*); 
void £xtend(SelectionList*); 
void Grasp(Selection*); 

void Grasp(SelectionList*); 

void Sclect(Sclection*); 
void Scleci(SelectionList*); 
void SelectAllO; 

void Move(float, float, DrawingView*); 

void SGale(float* float); 

void Stretch(float, Alignment); 

void Rotate(float); 

void Aiign(Alignment* Aligiunent); 

void AlignToGridO: 

void SetBrush(IBnish*); 
void SetBrush(IBrushList*); 
void SetCenter(CenterLi8t*); 
void SctFgColor(IColor*); 
void SetFgColor(IColorList*); 
void SctBgColor<IColor*); 
void SctBgColorQColorList*); 
void SetHllBg^olean); 
void SetHlIBg(booleanList*); 
void SetFont{IFont*); 
void SctFont(IFontList*); 
void SetPattemCIPattem*); 
void SctPattem(IPattcmList*); 

void AppendQ; 

void GroupCGfoupList*); 

void lnsertAfteri4ev(SelectionList*); 

void PrependO; 

void RemoveO; 

void Replace(Selection** Selection*); 
void SortO; 

void Ungroi^CGioupList*); 


// DFD specific functions 

Vertex* SctEndptsInOperator(Coord&, Coord&. Coord&, Coord&); 
void CuratorAppend^UipseSelection*4nt« 0); 
void OperatorAppend(RecxSelection**iot * 0); 
void DataFlowSpiineAppend(BSplincSelcction*, Vfertex*, Vertex*); 
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void AddTextToSelcctionListQ; 

void AddSelfLoopsToSelectionListO; 

void R^laceAssociatedObjccts(Vcitcx*, DrawingView*); 

void TriggcrAppcnd (TcxtSclection*, EUipseSelcction*); 

void WritcPSDLSpcc(FILE*): 

void WritePSDLImplCniJE*): 

void WritePSDLGraph(FILE*); 

void WritcDFDFilcs(dhar*, const char*); 

void WritcPSDLForAI10perators(char*, const char*); 


// Eagle additions for .graph file fonnat change 
void TagOperator(Vatex*,char*); 
void GeneiatcAda(FnJE*,Vertex*); 
void CommentAppcnd(TcxtSelection*); 
void SetDrawing\Aew(DrawingVicw*); 
void SetStatc(Statc *s); 
void Setldrawddraw ‘i) {idraw *i;} 
EdgeList •GetEdgcListO f return cl;) 

// end dianges 


void ReadDFDRlcs(char*, const diar*); 
void AddAllAssociatedItemsfSelectionList*); 

protected: 

int NumberOfGraphics(PictSelection*); 

// DFD specific functions 

void ChedcFbiConiposites(diar*, const diar*); 

void AddInputSelecdon(Seiection*); 

IColor *ReadFgColor(FILE*): 

IColor *ReadBgColoKnLE*): 
void WritcFgCoIof(FILE*JColor*); 
void WriteBgColor(FILE*JG)lor*); 

IFont •RcadFont(FILE*): 

void WriteFont(FlLE*, ffont*); 

void RcadPoint(FILE*,int,Coord&,Coord&); 

void WritePoint(FILE*,Transfotmcr*.Coord.Coord); 

void WriteTS(TcxtSelcction*, FILE*); 

TcxtSclection *RcadTS(ClassId, FILE*); 
void WriteDFDInfo(FILE*); 
void ReadGniphEdge(FlL£*); 
void RcadGraphVeitex(FILE* 4 nt); 
void ReadDFDInfo(FIl£*); 

void WrilcBdgcs(FILE*): 

void Writc\fertices(FILE*); 

void WritePSDLConstfaints(FILE*): 

void WritcGraphEdgc(FILE*^ge*): 
void WritcGiaphVertcx(FILE*, Vertex*); 

Vertex* EndptsInOperator<Coord&, Cooid&); 

void FindOperatoilntersection(Coord&, Cooid&, Coord, Coord); 

void FindTetminatorIntersection(Coord&, Coord&, Coord, Coord); 

void ReplaceInputDFSplines‘(Vertcx*. DrawingView*); 

void RcpIaccOutputDFSplinesfVertex*, DrawingView*); 

void RepIaceLabcl(Sclcction*, TcxtSclection*): 

void RepiaceLatency(Seiection*, TextSelection*); 

char* cliphiename; 

Page* page: 

PictSclection* picture; //stores picture 
CommcntList *01; //list of comments 

SelectioTtList* si; 

VertcxList* ol; // list of operators drawn 

EdgeList ‘el; 

// eagle changes for Shing editor 
State *5tate; 

Idraw *idraw; 

DrawingView *drawingvicw; 


// filename under which to store clippings 
// draws picture 

// lists pideed Selections 
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); 


inline void Drawing::SetState(Stalc •$) { 
state Bs; 

1 


inline void Drawing;:SetDrawingView(DrawingView *dv) { 
drawingview * dv; 

I 

#ondif 

drawing.c 


#include "commcntlisUi" 

#include ’‘dfd_dcfsii" 
tinclude *'dfddass«Ji*' 

#include "drawingview.h‘' 

#include "drawing-h" 
tinclude "idniw.h'' 
tinclude "ipainLh" 
tinclude "istringi)'' 
tinclude "listboolean.h" 
tinclude "listcoiterii" 
tinclude "listchangeJi'' 
tinclude "listgroup.h" 
tinclude '*listibnish.h" 
tinclude “listicolorJi” 
tinclude "Ustifonth" 
tinclude *'listipatteni.h** 
tinclude "listselectah" 
tinclude ''mapipainth" 
tinclude "pageJi" 
tinclude "psdlcompi)" 
tinclude "pcdllists-h" 
tinclude ’'slellipsesi)" 
tinclude "sipicUi" 
tinclude ’'slpolygonsJi" 
tinclude "slsplinesii" 
tinclude "sItexUi" 
tinclude “stateJi" 

tinclude <[nterViewsAjraphic^olygonsJi> 
tinclude <IntcrViews/dcfsJi> 
tinclude «JnterViews/rcgcxpJi> 
tinclude ^terViews/BhapeJi> 
tinclude <^terViews/pef8p6Ctivedi> 
tinclude <InterViews^xttefrerii> 
tinclude ^terView8/tnuisfonnerii> 
tinclude ■^terViews/Std/os/fs.h> 
tinclude <lnterN^ews/Std/stdioJi> 
tdefine KERNEL 
tinclude <stdlibdi> 

tinclude <sys/fileJ»> /* define constants for access call */ 

tdefine _POSIX_SOURCE 
tinclude ^ath Ji> 

/• extern "C" 

{ 

extern char ♦getenv( diar*); 

r/ 

// Drawing creates the page, selection list, and clipboard filename. 

Drawing:iDrawing (double w, double h, double b) { 
const diar* home b (home » getenv("HOME")) 7 home: 
const char* name b ".clipboard"; 

clipfilename * new char(strien(home) + 1 + 8tricn(name) + 1]; 

strcpy(clipfilename, home); 

strcat(clipfilename, "Di 

strcat(clipfilename, name); 

page B new Pagc(w. h, b); 

picUire B page‘>GetPictureO; 

si B new Selectionlist; 

cl B new CommentList; 

ol B new VertexList; 

el B new EdgeList; 

1 
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// -Drawing frees storage allocated for the clipboard filename, page, 
// and selection list. 

Dtawing::-Drawing () 

I 

delete clipfilename; 
delete page; 
delete si; 
delete cl; 
delete ol; 
delete el; 

I 


// Define access functions to return attributes. 

boolean Drawing:;GetLandscape () 

1 

Transformer* t =• page->GetTransformerO: 
return t ? t->Rotated90(): false; 

1 


Page* Dtawing:;GetPage 0 

{ 

return page; 

I 

void Drawing-GetPictureTT (Transfotmer& t) 

I 

picn]re->TotalTiansfoimation(t): 

1 

SelectionList* Dtawing::GetSelectionList 0 

{ 

return si; 

I 

// Writable teotms true only if the given drawing is writable. 

boolean Dtawing::Writable (const char* path) 

( 

return (access(path, W_OK) >• 0); 

I 

// Exists returns tiue only if the drawing already exists, 
boolean Drawing;£xists (const char* path) 

I 

return (access(path, F_OK) >« 0); 

I 

// GearPictute deletes the old picture and creates a new empty 
// picture. 

// Modified 10/20/94 by C.Sfagle 

void Drawing::ClearPictuie 0 

{ 

sl->DeleteAll(): 
page->SetPicture(nil); 
picture = page->GetPicture(); 

ol->DeleteA110; 

el->DeleteA110; 

I 

// ReadPicture reads a new picture and replaces the old picture with 
// the new picture if the read succeeds. 

boolean Drawing;:ReadPictute (const char* path. State* state) 

( 

boolean successful false; 
if (path I- nil) 

I 

FILE* stream » fopen(path, "r"); 
if (stream l>nil) 

( 

PictSelection* newpic •: new PictSelection(stream, state); 
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fc)ose(stream); 
if (ncwpic->Valid()) 


sI->Del^eAUO; 

page->SctPicturc(ncwpic); 
picture * page->GetPicturcO; 
successful = tme; 

I 

else 

I 

delete newpic; 

fjprintf(stdeiT, "Drawing: input error in reading %sV*. path); 

} 


} 

return successful; 

1 


// PiintPicture prints the current picture by writing it through a 
// pipe to a print command. 

boolean DiawingidPrintPicturc (const char* and, State* state) 


boolean successful«false; 
if (cmd !b nil) 

{ 

FILE* stream ■ popcn(cmd, "w"); 
if (stream i«nil) 

successful picture'>WritePicture(stream, state, true); 
pclo8e(stream); 

1 

) 

return successful; 

} 

// WritePicture writes the current picture to a file. 

boolean Diawing::WritePicture (const char* path. State* state) 

{ 

boolean successful« false; 
if (path !<■ nil) 

{ 

FILE* stream ■ fopen^atb. “w"); 
if (stream I«nil) 

( 

successful« picture'>WritePicture( stream, state, true); 
fclose(stream); 


I 

return successful; 

I 

// ReadClipboard returns copies of the Selections within the clipboard 
// file in a newly allocated list 


Selectionlist* Drawing::ReadGipboard (State* state) 

1 

Select! onList* si« new SelecdooList; 

FILE* stream « fopen(clipfilename, "r"); 
if (stream ! a nil) 

{ 

KctSelcction* newpic ■ new PictSclection(stream, sUte); 

fclo8e(stream); 

if (newpi(»Val!dO) 

I 

ncwpic->PropagateO; 

for (ncwpic->First(); lncwpic->AtEndO; newpic->RcinovcCuiO) 

Selection* child e (Selection*) newpic->GctCurrent(); 
sl->Appcnd(ncw SelectionNode(child)); 

I 

) 

delete newpic; 


else 
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fprintf(stdefT, "Drawing: can’t open %s\n", clipfilename); 


} 

return si; 

» 

// WriteClipboard writes the picked Selections to the clipboard file, 
// overwriting its previous contents. 


void Drawing::WriteQipboard 0 

I 

FILE* stream « fopen(clipfilcname,' V); 
if (stream iBnil) 

{ 

PictSelection* newpic s new PictSelection; 
for (sl->First(); lsl->AtEndO; sI->NextO) 

{ 

Graphic* copy ■ sl->GetCurO->GctSelcctionO->CopyO; 
newpic‘>Appead(copy); 

I 

newpic->WritePicture(stream,nil, false); 

fclose(stream); 

delete newpic; 

I 

else 


I 

fprintf(stderr, "Drawing: can’t open %s\n", clipfiloiame); 

1 

) 


// GetBox gets the smallest box bounding all the Selections. 

void Drawing::GetBox (Coofd& 1, Coord& b, Coord& r, Coord& t) 

BoxObj btotal; 

BoxObj bselection; 

if (sl->Sizc() >« 1) 
i 

8l->FirstO->GetSeIection()->GetBox(btotal); 
for (sl->NcxtO; lsl->AtEndO; sl->NcxtO) 

I 

8l>>GetCurO'>GetSelection()->GetBox(bselection); 
btotal« btotal * bselection; 

I 

1K btotal.left; 
b ^ btotal.bottom; 
r * btotal.right; 
t« btotal .top; 

I 

I 


// GetBrush returns the Selections' brush attributes in a newly 
//allocated list 

IBrushList* Drawing::GetBrush () 

I 

IBrushList* brushlist« new IBrushList 
for (sl-;*First(); Isl->AtEndO: sl->NextO) 
i 

IBrush* brush ■ (IBrush*) 6l->GctCurO->GetSeIccdonO->GctBiushO; 
brushlist->Append(new lBrushNode(brush)); 

I 

return brushlist; 

I 

// GetCenter returns the Selections' centers in a newly allocated 
// list. It converts the centers from window coordinates to picture 
// coordinates because only these coordinates will remain constant 

CentcrList* Drawing::GetCentcr () 

I 

CenterList* centerlist« new CenterList 
Transformer t 

picU]re->Tota]Transfotmation(t); 
for (sl->RrstO; lsl«>AtEndO; sl->NcxtO) 
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float wincx, wincy, cx, cy; 


sl->GetCuiO->GetSelectionO->GetCenter(wincx,wincy): 

UnvTransfonii(wincx, wincy, cx, cy); 
centeriist->Append(new CenterNode(cx, cy)); 

I 

return centeriist; 

) 

// GetChildren returns the Selections and their children, if any, in a 
// newly allocated list. 

GroupList* Drawing;<3etChildren 0 
{ 

GroupList* grouplist * new GroupList; 
for (sl->Krst(); !sl->AtEndO; sl->NextO) 

PictSelection* parent»(PictSelection*) sl->GetCutO->GetSelectionO; 
boolean haschildren ^ parent* >HasChildrenO; 

Selectionlist* children « new SelectionList; 
if (haschildren) 

( 

for (parent->RistO; lparent->AtEndO; parent-^extQ) 

^ Selection* child « parent->GetCurrentO; 

childten->Append(new SelectionNode(child)); 

} 

grouplist->Append(new GroupNode(parent, haschildren, children)); 
delete children; 

I 

return grouplist; 

1 

// GetFgColor returns the Selections' FgColor attributes in a newly 
//allocated list 

IColorList* Dtawing::GetFgColor 0 
{ 

IColoiList* fgcolorlist ■ new IColorList; 
for (sl->Rtst(); lsl->AtEndO; sl->NextO) 

IColor* fgcolor - (IColor*) sl->GetCotO->GetSelection{)->GetFgColoi(); 
fgcoloiiist->Appcnd(newIColorNode(fgcoior)); 

I 

return fgcolorlist; 

1 

// GetBgColor returns the Selections' BgColor attributes in a newly 
// allocated list. 

IColorList* Drawing; :GetBgColor 0 
( 

IColod,ist* bgcolorlist - new IColoiList; 
for (sl->RrstO; lsl->AtEndO; sl->NextO) 

* IColor* bgcolor - (IColor*) sl->GetCurO->GetSelection()->GetBgColorO; 
bgcolorlist->Append(newIColorNode(bgcolor)); 

I 

return bgcolorlist; 

I 

// GetDuplicates duplicates the Selections, offsets there by one grid 
// spacing, and returns there in a newly allocated list. 

Selectionlist* Diawing:<ietDuplicates 0 

I 

int offset • round(page->GetGridSpacingO * points); 

SelectionList* duplicates « new SelectionList; 
for (sl->Rrst(); lsl->AtEndO; sl->NextO) 

* Selection* dup «= (Selection*) sI->GetCurO->GetSeloction()->CopyO; 
dup->Tianslate(oSset, offset); 

duplicates->Appcnd(new SelectionNode(dup)); 

I 
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return duplicates; 

1 

// GetFillBg returns the Selections' fillbg aaributes in a newly 
// allocated list 

booleanList* DrawingtGetFillBg 0 

( 

booleanlist* fiUbglist = new booleanList; 
for (sl->FirstO: lsl->AtEndO; sl->NextO) 

boolean fillbg = sl->GetCurO->GetSelection()->BgFilledO; 
fillbglist->Append(newbooleanNode(fillbg)); 

) 

return fiUbglist; 

) 


// GctFont returns the Selections' Font attributes in a newly 
//allocated list. 

IFontList* Drawing::GetFont 0 

1 

IFontList* fontlist = new IFontList; 
for (sl->FirstO: lsl->AtEndO; sl->Ne»tO) 

IFont* font»(IFont*) sl->GetCur()->GetSelectionO->GetFbntO; 
fontlist->Append(new IFontNodeffont)); 


return fontlist; 

1 

// GetNumberOfGraphics returns the number of graphics in the 
// Selections. 


int Drawiog:K3etNumberOfGraphics 0 

I 

int num « 0: 

for (sl->FitstO: lsl->AtEndO; sl->Ne»tO) 


I 

Selection* s « sl->GetCur()->GetSeIectionO; 
if (s->HasCbildrenO) 

nura +« NumbetOfGraphics((PictSelection*) s); 

else 


I 

return num; 

I 


++nam; 


// GetParent returns the Selections and their new parent in a newly 
// allocated list if there are enough Selections to form a Group. 

GroupList* Drawing;:GetParent () 

( 

GroupList* grot^list • new GroupList; 
if (sl->Size() >= 2) 

1 

PictSelection* parent ■ new PictSelection; 
boolean hascfaildren true; 

grouplist->Append(new GroupNodefparent, haschildFen, si)); 


return grouplist; 

) 

// GetPattem returns the Selections' Pattern attributes in a newly 
// allocated list. 

IPattemList* Drawing:K3etPattem 0 

( 

IPattemList* pattemlist - new IPattemList; 
for (sl->FirstO; lsl->AtEodO; sl->NextO) 

I 

IPattem* pattern » 

(IPattem*) sl->GetCutO->GetSelectionO->GetPattem(); 
pattemlist->Append(new IPattetnNodefpattem)); 

I 

return pattemlist; 
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I 


// GetPrevs returns the Selections' predecessors within the picture in 
// a newly allocated list. 

Selectionlist* Drawing;:GetPrevs () 

SelectionList* prevlist = new SelectionLish 
for (sl->KrstO; lsl->AtEndO: sl->NeatO) 

pictuie->SetCurTent(sl->GetCurO->GntSelectionO); 

Selection* prev = picture->PrevO: 
prevlist->Append(new SelectionNodefprev)); 


return prevlist; 

I 

// GetSelections returns the Selections in a newly allocated list 

SelectionList* Drawing::GetSelections () 

\ 

SelectionList* newsl = new SelectionList; 
for {sl->Rist(); lsl->AtEndO; sl-:^iextO) 

* Selection* s « sl->GetCutO->GetSelectionO; 

newsl->Appcnd(ncw SclcctionNode(s)); 


return newsl; 

I 


// PickSelectionIntetsecting returns the last Selection intersecting a 
// box around the given point 

Selection* Drawingi-JSckSelecttonlntereecting (Coord x. Coord y) 

i 

const int SLOP * 2; 

BoxObj pidtpointfx - SLOP, y - SLOP, x + SLOP, y + SLOP); 
return picture->LastSelectionIntetsecting(pickpoint); 

1 

// PiekSelectionShapedBy returns the last Selection shaped by a point 
// close to the given point 

Selection* Drawing: fickSelectionShapedBy (Coord x. Coord y) 

I 

const float SLOP ■= 6,; 

for (picture->LastO; lpicture->AtEndO: picture->PrevO) 

( 

Selection* pick •= picture->GetCurrentO; 
if (pick->ShapodBy(x. y. SLOP)) 
return pick; 

I 

return nil; 

1 

// PickSelectionsWithin returns all the Selections within the given 
//box. 

Selectionlist* DrawingrfickSelectionsWthin (Coord 1. Coord b. Coord r. Coord t) 

I 

Selection** picks = nil; 

int numpicks = picture->SclccbonsWithin(BoxObj(l. b. r. t). picks); 
SeiecdonList* picklist ~ new SelecdonList; 

(or (int i» 0; i < nutnpicks; i++) 

if (lpicklist->Find(picks(i])) 

picklist->Append(new SelectionNode(picks(iJ)); 

delete picks; 
return picklist 

I 

// Clear empties the SelecdonList 

void Drawing;:Clear 0 

( 

fl->DeleteAll(); 

I 
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// Extend extends the SelectionList to include the picked Selection 
// unless it's already there, in which case it removes the Selection. 

void Drawing:£xtend (Selection* pick) 


if (!sl->Find(pick)) 

sl->Append(new SelectionNode(pick)); 
else 


sl->DeleteCuiO; 


// Extend extends the SelectionList to include the picked Selections 
// unless they're already there, in which case it removes them. 

void Dtawiog:£xtend (SelectionList* picklist) 

I 

for (picklist->KistO; !pickiist->AtEndO; picklist->NcxtO) 

1 

Selection* pick = picklist->GetCurO->GetSelectionO; 
Extend^ick); 

I 

) 


// Grasp selects the picked Selection only if the SelectionList does 
// not already include it. 

void Drawing::Grasp (Selection* pick) 

( 

if (!sl->Find(pick)) 

Select(pick); 

1 

// Grasp selects the list of picked Selections only if the SelectionList 
// does not already include any of the selections. 

void DrawingnGrasp (SelectionList* piddist) 

( 

boolean found ~ false; 

for (picklist->Fir5tO: lpieklist->AtEndO; picklist->NextO) 

{ 

if (sl->Find(picklist->GetCurO->GetSelectionO)) 

I 

found true; 
exit(0); 

I 

) 

if (Ifound) 

Select(picklist); 

I 

// Select selects the picked Selection. 

void Diawing::Select (Selection* pick) 

{ 

sl->DeleteAll(); 

sl->Append(new SelectionNode(pick)); 

1 

// Select selects the picked Selections, 
void Drawing::Select (SelectionList* picklist) 

I 

sl->DeleteAll(); 

for (picklist->FiistO; !picklist->AlEndO; picklist->NcxtO) 

I 

Selection* pick = picklist->GetCurO->GetSelection(); 
Bl->Append(new SelectionNode(pick)); 


I 

// SelectAll selects all of the Selections in the picture. 

void Drawing;;SclectAll 0 

( 

sl->DeleleAll(); 
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for (picture->FirstO; !picture->AtEndO: picturo->NextC)) 


I 

Selection* pick = picture->GetCutientO; 
sl->Appcnd(ncw SelectionNode(pick)); 

) 

I 


// Move translates the Selections. 

void Drawing::Move (float xdisp, float ydisp, DrawingView* dv) 

*// add labels, mets, and selfloops and their labels to the list of selections 
// to be moved if the operator Aey arc attached to is to be moved. 

// These objects can be translated along with the operator - data flows 
// cannot be translated, they must be modified 

AdJTextToSelectionListO; 

AddSelfLoopsToSelectionListO; 

Classid cid; 

int sl_size = sl->SizeO; 

for (int index = 0; index < sl_size; -t+index) 

( 

Selection* s = sl->Index(index)->GetSelectionO; 
cid = s->GetClassIdO; 

if (cid = OPERATOR II cid — TERMINATOR II cid — COMMENT II 

cid -=LABEL_OP II cid = MEr_OP II 
cid «= LABEL_SL I cid — SELFLOOP II (sl_size »= 1 && 

(cid — LABEL_DF II cid -= LAT_DF))) 

I 

s->Translate(xdisp, ydisp); 

if (cid -= OPERATOR II cid •= TERMINATOR) 

I 

SelectionList* temp « GetSelechonsO; 

ReplaoeAssociatedObjects((Vertex*) s->GetOwner0. dv); 

Select(temp); 


1 

I 

// only redraw the screen once to make the transition look smooth 
dv->Draw(); 

) 

// Scale scales the Selections about their centers, 
void Drawing::ScaIe (float xscale, float yscale) 

I 

(or (sl->First(); lsl->AtEnd(); sl->Next()) 

I 

Selection* s * sl->GetCurO>GetSelectionO; 
float cx, cy: 
s->GetCenter(cx, cy); 
s->Scale(xscale, yscale, cx, cy); 

I 

I 


// Stretch stretches the Selections while keeping the given side 
// fixed. 

void Drawing::Stietdi (float stretch. Alignment side) 

I 

for (sl->First(); lsl->AtEndO: sl->Next()) 

I 

Selection* s * sl->GetCuiO->GetSelcctionO; 
float I, b, r, t; 
s->GetBounds(l, b, r, t); 
switch (side) 

{ 

case Left: 

s->Scale(stretch, 1, r, t); 

break; 

case Bottom; 
s->Scale(l, stretch, r, t); 
break; 
case Right: 
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s->Scale(stretclv 1,). b); 
break; 
case Top: 

s->Scale(l, stretch. 1, b); 
break; 

default: 

fprintffstderr, “inappropriate enum passed to Drawing::Strrtch\n"); 
break; 

I 

} 

I 

// Rotate rotates the Selections about their colters, 
void Drawing::Rotate (float angle) 

I 

for (sl*>RrstO; tsl->At£ndO; sl->NejrtO) 

I 

Selection* s * sl->GetCur()->GctSclcctionO; 
float cx, cy; 
s>>GetCenter<cx, cy); 
s*>Rotate(angle. cx, cy); 

I 

} 


// Ali^ either aligns up all of the Selections or abuts all of than 
// side to side. dq)ending on whether the moving Selection's side or 
// center aligns with the fixed Selection's same side or center. 

void Drawing::Align (Alignment falign, Ali^unent malign) 

I 

if (falign malign) 

{ 

Selection* stays m 8l>>First()->OetSe]ection(); 

for (sl->NcxtO; lsI->AtEndO; sI->NcxtO) 

( 

Selection* moves ■ sl->GetCur()->GetSelectionO; 
stays*>Align(fa]ign, moves, malign); 

I 

I 

else 

I 

Selection* stays ■ sl->Fiist()->GetSelcctionO; 
for (sl->Next(); lsl>>At£ndO; sl“>NextO) 

{ 

Selection* moves » sl->GctCuK)->CjetSclcctionO; 
8tays->Align(faligD. moves, malign); 
stays B moves; 

I 

I 

I 


// AiignToGrid aligns the Selections' lower left comers to the 
// nearest grid point. 

void Drawing::AlignToGrid 0 

I 

boolean gravity » page->GetGridGravityO; 
page“>SctGridGravity(true); 

Transformer t; 

picture>>Totarrian$formation(t); 

for (sl->First(); !sl->AtEndO: sl->NextO) 

I 

Selection* s » sl*>GetCurO'>CjetSelectionO; 
float 1, b, dummy, 

s->GetBoundsO. b, dummy, dummy); 

Coord nl * rouod(l); 

Coord nb * round(b); 
page->Constrain(nl. nb); 
float xO, yO, xl.yl; 
tJnvTransform(l, b, xO, yO); 
UnvTransformCfloatfnl), float(nb). xl, yl): 
6->Trafislate(xl - xO, yl - yO); 

I 
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page->SetGridGravity(gravity); 

) 

// SetBnish sets the Selections' brash attributes with the given brash 
// attribute. 

void Drawing:;SetBrash (IBrash* brash) 

{ 

for {sl->First(); !sl->AtEndO: sl->NextO) 

I 

sl->GetCuiO->GetSelectionO->SetBrash(biush); 

) 

) 


// SetBrush sets each Selection's brash attribute with the 
// corresponding brash attribute in the provided list 

void Drawing:;SetBrush (IBnrshList* brashlist) 

( 

for (sl->FirstO, brrjshlist->HrstO; lsl->AtEndO && Ibrrjshlist->AtEndO; 
sl->Ne*tO. brushlist->NextO) 

I 

IBrush* brush ■ brushlist->GetCurO->GetBrush(); 
sl->GetCurO->GetSelectionO->SetBrash(brash): 


1 

// SetCenter centers each of the Selections over the corresponding 
// position in the provided list It expects the passed postions to 
// in picture coor^ates, not window coordinates. 

void Drawing;:SetCenter (CenterList* centerlist) 

( 

Transformer t; 

picture->TotatTransfotmation(t); 
for (sl->Hrst(), centerlist->Fitst(); 

lsl->AtEndO && lcenterlist->AtEndO: 
sl->NextO, centeriist->NextO) 

( 

float winoldex, winoldcy, oldcx, oldcy; 
float newcx « centerlist->OetCutO->GetCxO: 
float newey « centerlist->GetCuK}->GetCyO; 
Selection* s - sl->GetCutO->GetSelectionO: 

s->GetCentet(winoldcx, winoldcy); 
tlnvTrarrsformfwinoldcx, winoldcy, oldcx, oldcy); 
s->Ttanslate(newcx - oldcx, newey - oldcy); 

) 

) 

// SetFgColor sets the Selections' foreground color attributes with 
// the given color attribute. 

void Drawing:;SetFgColor (IColor* fgcolor) 

( 

for (sl->Rrst(); lsl->AtEndO; sl->NextO) 

! 

Selection* s « sl->GctCurO->GetSelcctronO; 

IColor* bgcolor = (IColor*) s->GetBgColorO; 
s->SetColots(Igcolor, bgcolor); 

) 

I 

// SetFgColor sets the Selections' foreground color attributes with 
// the corresponding color attributes in the provided list 

void DrawinguSetFgColor (IColorList* fgcoiorlist) 

I 

for (sl->First(), fgcoloriist->FirstO; 

lsl->AlEndO && lfgcolorlist->AtEndO; 
sl->NextO, fgcolorlist->Next()) 

( 

Selection* s * sl->GctCur()->GctSclcctronO; 

IColor* fgcolor « fgcolorlist->GetCut()->GetC61otO; 
IColor* bgcolor - (IColor*) s->GetBgColorO: 
s->SetColots(fgcolor, bgcolor); 
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I 


) 

// SetBgColor sets the Selections' background color attributes with 
// the given color attribute. 

void Drawing::SetBgColor (IColor* bgcolor) 

( 

for (sl->RrstO; !sl->AtEndO; sl->Ne*tO) 

I 

Selection* s = sl->GetCuK)->Ge*SelectionO; 

IColor* fgcolor * (IColor*) s->GetFgColorO; 
s->SetColois(fgcolor, bgcolor); 

I 

) 

// SetBgColor sets the Selections' background color attributes with 
// the corresponding color attributes in the provided list 

void Drawing::SetBgColor (IColoiList* bgcolorlist) 

I 

for (sl->Firet(), bgcoloriist->RistO; 

lsl->AtEndO &■& !bgcolorlist->AtEnd(); 

6l->NextO, bgcolorlist->NettO) 

Selection* s « sl->GctCui()->GetSelectionO; 

IColor* fgcolor * (IColor*) s->GetFgColorO; 

IColor* bgcolor = bgcoloriist->GetCutO->GetColorO; 
s->SetColois(fgcolor, bgcolor); 

I 

I 

// SetRlIBg sets the Selections' fillbg attributes with the given 
// fillbg attribute. 

void Drawing::SetRllBg (boolean fillbg) 

i 

for (sl->Rrst(); !sl->AtEndO; sl->NeitO) 

sl->GetCui()->GetSelectionO->FiUBg(fillbg); 

I 

// SetRlIBg sets each Selection's fillbg attribate with the 
// concsponding fillbg attribute in the provided list 

void Drawing::SetRllBg (booleanlist* fillbglist) 

( 

for (sl->RrstO. fillhgli5t->Rret(); 

lsl->AtEndO && !fillbgIist->AtEndO: 
sl->NextO, fillbglist-sNextO) 

I 

boolean fillbg = fillbglist->GetCurO~>GclBoolcanO: 
sl->GetCuiO->GetSelectionO->RllBg(fillbg); 

) 

1 

// SelFont sets the Selections' font attributes with the given font 
// attribute. 

void Drawing;:SetFont (IFont* font) 

( 

for (sl->Rrst(); Isl->AtEndO; 5l->NextO) 

Selection* s « sl->GetCuiO->ftctSclcctionO; 
s->SetFont(font); 

I 

I 


// SetFont sets each Selection's font attribute with the corresponding 
// font attribute in the provided list 

void Drawing;:SetFont (IFontList* fontlist) 

* for (sl->Rrst(), fontlist->RnitO; lsl->AtEndO && !fontlist->AtEndO; 
sl->NextO. fontlist->Next()) 



fontlist->GetCurO->GetFontO; 
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Selection* s - sl->GetCutO->GelSelectionO; 
s->SetFont(font); 

I 

I 

// SetPattem sets the Selections' pattern attributes with the given 
// pattern attribute. 

void Drawing::SctPattcm (IPattcm* pattern) 

{ 

for (sl->Krst(); lsl->AtEndO; sl->Ne*tO) 

* sl->GetCuK)->GetSelectionO->SetPattetn(pattem); 


// SetPattem sets each Selection's pattern attribute with the 

// corresponding pattern attribute in the provided list 

void Drawing::SetPattera (IPattemList* pattemlist) 

{ 

for {sl->First(), pattemlist->RrstO: 

lsl->AtEndO && lpattemlist->AtEnd(); 
sl->NextO, pattemlist->Neit()) 

IPattera* pattern = pattemlist->GetCur()->GetPattemO: 
sl->GetCuK)->GetSelectionO->S«tPattem(pattem); 

I 

I 

// Append appends the Selections to the picture. 

void Drawing::Appeod 0 

( 

for {sl->RtstO; lsl->AtEndO; sl->NextO) 

Selection* s ” sl->GetCuiO->GetSelectionO; 
picture->Append(s); 

I 

I 


// Group groups each parent's children, if any, under their patent and 
// returns the resulting Selections in the SelectionList 

void Drawing:;Grorjp (GroupList* grouplist) 

{ 

if (grouplist->SizeO >“ 1) 

( 

sl->DeleteAUO; 

for (grot^list->Rrst(); lgtouplist->AtEndO; grot 5 jlist->NextO) 

I 

GrotqrNode* gn * grouplist->GetCurO; 

HctSelection* patent« gn->GetPatentO; 
boolean haschildren » gn->GetHasChildrenO; 

SelectionList* children « gn->GetChildren(); 

SelectionList* childtengs •= gn->GetChildtenGSO; 
if (haschildren) 

^ for (children->Rrst(), childrengs->HrstO; 

!chiidren->AtEndO && lchildrengs->AtEndO; 
childten->NextO. childrengs->NextO) 

( 

Graphic* child ■ chi]dren->GetCurO->GetSclectron(); 

Graphic* childgs “ childrBngs->GetCur()->GetSelectionO 

*child “ *childgs; 

picture->SetCurTeot{child); 

picture->Retnove(child); 

parenl->Append(child); 

) 

pictuTe->InsettBefoteCur(parent); 

) 

sl->Append(new SelectionNode(patent)); 

) 

SortO; 

I 

I 
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// InsertAfterPrcv inserts each Selection after its corresponding 
// predecessor in the provided list. 

void DrawingidnscrtAftcrPrev (SelectionList* prevlist) 

* for (sl->Rrst(), prcvhst->FirstO: !s!->AtEndO && !prcvlist->AtEndO; 
sl->NextO, prevlist->Next()) 

( 

Selection* prcv * prevlist->GetCur(>>GetSelcctionO; 
picture->SetCunmt^rcv); 

Selection* s = sI->GetCur()->GctSelectionO: 
pichire->lnseitAfterCur(s); 


// Pr^cnd pr^iends the Selections to the picture. 

void Drawing: dPr^end () ( 

for (sl->Last(): !sI->AtEnd(): sl->PrevO) I 

Selection* s « sl->GetCuf()->GctSclcctionO; 
picture->Prq)«td(s); 

I 

I 


// Remove removes the Selections from the picture. 

void Drawing::Remove Q { 

SelectionList* sl_2 « GctSelcctionsO; 

ClearO: 

AddAllAs8ociatedItems(sI_2); 
for(sI_2->RfstO: !sl_2->AtEndO: sl_2->NextO) 
picture->Remove(sl_2->GctCurO->GetSelectionO); 
for (sL2->FirstO: Isl_2->AtEnd(); sl_2->NcxtO) ( 

Selection* s ■ sl_2->GetCurO->GctSclection(); 
Classid cid « s ->GetQassIdO; 
if (s->IsEdgcCofnponcnt()) 
cl->Remove(s); 

else if (s->IsVcTtexComponent()) 
ol->Remove(s); 

else if (s->GctaassId() — COMMENT) 
cl'>Remove(CrextSelcction *)s): 

I 

sL2->DcleteAU0; 


void DTawing::AddAllAssociatedIteins(SelectionList *s) { 
Texts election •ts; 

EdgeList *edl; 

BSplineSelection *bs; 

for (s->Firet(); l5->At£nd(); s->NcxtO) ( 

Selection *scl * s->GctCar()->GetSelcctionO; 
if (scl->GetaassIdO «= OPERATOR) { 

Operator *op *■ (Operator *) 8el->GetOwner0l 
ts B op->OetLabe]0; 
if (ts && Is->Find(ts)) 

8->Append{new SelectionNode(ts)); 
ts B op->GctMET(); 
if (ts && Is->Find(ts)) 
s->Append(new SelectionNode(ts)); 
ts B op->GctTagO; 
if (ts && !s->Find(ts)) 
s->Append(new SelectionNode(ts)); 
edl B op‘>GetInputsO; 

for(edI->Fiist(): !edl->AtEndO; edl->NextO) { 
bs B edl->GetCurO->GetEdgc()->GelBSplineO; 
if (bs && !s->Find(b6)) 

8->Appcnd(new SelectionNode(bs)); 

edl * op->GetOutputs(); 
for (edl->First(); !edl->AtEnd(); edl->NcxtO) { 
bs B edl->GetCur()->GetEdgeO->GetBSpline(); 
if (bs && !s->Find(bs)) 

S‘>Appcnd(new SelecdonNodeO’s)); 

I 

} 
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else if ((seI->GetQassId() «= DATAFLOW_SPlJNE) II 
(scl->GetaassId() = SELFLOOP)) ( 

Edge *e = (Edge •) sel->GetOwnerO; 
ts e e>>GetLabeIO« 
if (ts && !s->Fmd(ts)) 
s->Append(new SelectionNode(ts)); 
is =s e‘>GetLatcncy(); 
if (ts && !s->Fmd(ts)) 
s->Append(new SelectionNode(ts)); 

) 

) 

) 


// K^lace replaces a Selection in the picture with a Selection not in it 

void Drawing::Rq)lacc (Selection* r^lacee, Selection* r^lacer) | 
if (replacee->IsEdgeComponcntO) 
el->Replace(feplaceejeplacer); 
else if (feplacee->IsVertexComponcnt()) 
oN>Replace(replacee,replacer); 
picture-^etCurrent(replacee); 
pictu rB->Remove(repl acee); 
pictufe->ln8ertBeforeCur(r^lacer); 

I 

// Sort sorts the Selections so they occur in the same order as they 

// do in the picture. 


void Drawing::Sort () { 
if (sl->Size() >■ 2) 

for (picture->RrstO; lpicOire->AtEnd0; picturB->NextO) { 

Selection* g » picture->GetCufTentO; 
if (sl->Find(g)) | 

SeiectionNode* s » sl“>GctCurO; 

sl->RemovcCurO; 

sI'>Appaid(5); 


I 

// Ungroup replaces all Selections which conuin children with their 
// children and returns the resulting Selections in the SelectionList 

void Drawing::Ungroup (Grouplist* grouplist) 


if (grDvq)lisl->SizcO >« 1) 

( 

8L>DeleteAU0; 

for (grouplist->FirstO: !groi^Iist->AtEndO: grooplist->NextO) 

{ 

GroupNode* gn * grouplist->GetCurO; 

PiclSelection* parent * gn->GctParenl(); 
boolean haschildrcn ■!gn->GctHasChildrenO; 

SelectionList* children * gn->GctChildrcnOi 
if (haschildren) 

parent->PropagaleO; 

pictarc->SctCurrcnt(parcnt); 

for (childrcn->Inrst(); Ichildrcn->AtEndO; <iiildrcn->NextO) 


{ 


else 


} 


I 


} 

SortO; 


Selection* child *= children->GctCur0->OctSelection(); 

parent>>Remove(child); 

pichj re'>ln8ertBeforeCur(cbild); 

sl->Append(new SelectionNode(duld)); 

) 

picture->Removc(parent); 


sI->Af^end(ncw SclcctionNode(parent)); 


// NumberOfGraphics returns the number of graphics in the picture, 
// calling itself recursively to count the number of graphics in 


no 



// subpictures. 

int DrawingiJ'IumberOfGraphics (PictSclcction* picture) 

I 

intnum «0; 

for (picture->FifstO; !picture->AtEndO; pictur©->NcxtO) 

{ 

Selection* s * picture->GetCurrentO; 
if {s->HasChildrenO) 

num NumbefOfGraphics((PictSe!ection*) s); 

else 

++num; 

) 

return num; 

) 


// DFD ^ecific functions 

// return ellipse that contains the given points 

Vertex* Drawing:*JEndptsInOperator(Coofd& Coord& y) { 

Vertex *op * oi->RndOp(x,y); 
if (op) { 

float fx, fy; 

op->GctShapeO->GctCentcr(fx. fy); 

X «(Coord) fx; 
y «(Coord) fy; 
return op; 

) 

else 

return 0; 

I 

// Find point where data flow intersects with operator in order to 
// draw data flow's endpoints at intersection point with operator 
//Changed 2/6/91 
// By Patrick D. Barnes 

// Dttcription: Fixed bug where new enr^oint calculation is hosed when 
// picture is zocMned, resized, or scrolled. Previous code did not 
// adjust OperatorRadius for Zoom. 


void Drawing::FindC^eratorIntersection(Coord& x, Coonl& y, 
Coord x2. Coord y2) ( 
float aOO, aOI, alO, scale, a20. a2l; 
int radius; 

Transformer t; 

GctPictureTr(t); 

tGetEntries(aOO, aOl, alO, scale, a20, a21); 
radius as (int) ((float) C^eratorRadius * scale); 
if (x !» x2 && y !- y2) 
i 

double tot^ 1, temp2, h. a, doi; 

temp! (double) (x2 * x); 

tenip2 * (dottle) (y2 - y); 

den ■ sqrt((templ * tempi) ^ (temp2 * temp2)); 

a K (double) (radius) * (tempi /den); 

hs(temp2/tempi) *a; 

X += (Coord) a; 

y +* (Coord) h; 

1 

else 


if(x —x2) 
if(y2>y) 
else 


y radius; 


radius; 

if(y2<y) 


if(y-«y2) 
if {x2 > x) 

else 


X radius; 
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if(x2<x) 

X -= radius; 

I 

) 

void Drawing::FindTeiminatorIntersection(Coord& x, Coord& y. 

Coord x2, Cooid y2) I 
float aOO, aOl, alO, scale, a20, a21; 
int radius; 

Transformer t; 

GetPictureTTft); 

t,GetEntries(aOO, aOl, alO, scale, a20, a21); 
radius - (int) ((float) OperatorRadius * scale); 
double dx, dy; 
dx ■: (double) (x2 - x); 
dy = (double) (y2 - y); 
int Steq) = fabs(dy) > fabs(dx); 
if (steep) ( 
if (dy < 0) 
radius ^ -radius; 
y *= radius; 

X += (Coord) (dx • radius / dy); 

1 

else ( 
if(dx<0) 
radius n -radius; 

X radius; 

y +«(Coord) (dy • radius / dx); 

I 

1 

// Finds the operator that contains the given points and modifies 
// those points to be where the data flow intersects with the operator 

Vertex* Drawing“SetEndptsInOperator(Coord& xl, Coord& yl. 

Coord* x2. Coord* y2) ( 

Vertex* esl = EndptsInOperatorfxUyl): 
if(esl) 

if (es 1 ->GetClassId() -= OPERATOR) 

FindOperatorIntersection(x 1 ,yl ^2,y2); 

else 

FindTerminatorIntet*ection(xl,yl,x2,y2); 
return esl; 

) 

// Add ellipse to operator list 

void Drawing;dDperatorAppend(EUipseSelectron* es, int id) 

I 

Operator* os - new OperatoK«); 
os->SetId(id); 

ol->Append(new VeitexNode(os)); 

I 

void Drawing::OperatorAppend(RectSelection* rs, int id) 

I 

Terminator* ts = new TerminatoKrs); 
ts->SetId(id); 

ol->Append(new VertexNode(ts)); 

) 

// Add data flow to operator list 

void Drawing:T)atriFlowSplineAppend(BSplineSelection* ss. Vertex* rrpl. 

Vertex* op2) 

I 

Edge* e ■ new £dge(ss,opl,op2); 
el->Append(new EdgeNode(e)); 
if(opl) 

op 1 ->AddOutput(e); 
if (op2) 

op2->AddInput(e); 

) 

// For all operators selected, add their mets tags, and labels to the 
// selection list 
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void Dravving::AddTextToSeIectionList() 


( 

int op^indcx * 0, sl_indcx * 0; 
int •op_index_anay = new int[sl->SizeO]; 
for (si ->First(); !sl->AtEndO; 5l->Next0) 1 
int cid ■= sl-;<}etCur()->GetSelection()->GetQassId(); 
if (cid = TERMINATOR II cid = OPERATOR) 
op_index_aiTay[op_index++] = sl_index; 

++sl_index; 

) 

Selection* s; 

TextSelection* ts; 

TextSelection* met_ts; 

TextSelection* tag_ts; 
for (int i = 0; i < op_index: ++i) ( 
s = sl->Index(op_index_anay[i])->GefSelectionO; 

Vertex *op ■= (Vertex *) s->GetOwner0: 
if(op) I 

ts = op->GetLabel(); 

if(ts) 

if (lsl->Find(ts)) 

sl->Append(new SelectionNode(ts)); 

mct_ts as op->GctMET0; 
if (inet_ts) 

if (lsl->Find(met_ts)) 
si->Appcnd(new SeiectionNode(met_ts)); 
tag_ts = op->GetTagO; 
if (tag_ts) 

if (!sl->Rnd(tag_ts)) 

sl->Append(new SelectionNode(tag_ts)); 

I 

} 

) 

// For all operators selected, add their associated self loops and thei 
// labels to the selection list 

void Drawing; :AddSelfLoopsToSelectionList() 

{ 

int op_index = 0, sl_index •= 0; 
int *op_index_array = new int(sl->Size()]; 
for (si ->First0: lsl->AtEnd(); sl->Next0) 1 
int cid =s sl->GetCurO->GetSeleetion()->GetQassIdO; 

if (cid — OPERATOR II cid — TERMINATOR) 
op„index_arTay[op_index++] * sl_indcx; 

■t-fsl index; 

) 

Selection* s; 

EdgeList *sll; 

for (int i » 0; i < op_index; ++i) 

I 

8 » sl->Index(op_index_array[i])->GetSelectionO; 

Vertex *op = (Vertex *) s->GetOwner(); 
if (op) I 

sll “ op->GetOutpuls0: 

for (sll->First(); !sll->AtEnd0; sll->Next0) ( 

Edge *e * sll->GetCur()->GetEdgeO: 
if (e->IsState0) 

sl->Append(new SelectionNode(e->GetBSplineO)); 
TextSelection* ts •! e->GetLabeI0; 

if (ts && lsl->Find(ts)) 

8l'>Append(new SelectionNode(ts)); 

I 

) 

I 

I 

// Modify all data flows associated with the given operator to move 
// to the new location that the operator moved to 

void Drawing::ReplaceAssociatedObjects(Vertex* vn, DrawingView* dv) 

I 

if (vn) ( 

ReplaceInputDFSplines(vn, dv); 

Replace0^utDI%plines(vn, dv); 
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// Modify all input data flows associated with an operator 
// Changed 2/6/91 
//By Patrick D. Barnes 

// Description: Rxed bug where new ent^oint calculation is hosed when 

// pictareis zoomed, r«izcd,orscrolled. Previous code did not 

// transform the original spline coordinates before and after calc 
// of new endpoint "GetCenter" is in absolute Coord, but GctOriginal 
// and CrcatcReshapedCopy require original Coords. 

void Drawing::RcplaccInputDFSplines(Veitex *op, DrawingView* dv) 

f 

float fx, fy, 

Coord cx, cy; 

op->GetShapc()->GctCaiteKfx, fy); 
cx * (Coord) fx; 
cy * (Coord) fy; 

Coord •x_new, *y_new; 

Coord x_new_n, y_new_n; 

Coord *x_old, *y_dld; 

Coord tx, ty; 

BSplineSelection* oldss; 

BSplineSelection* newss; 

EdgcList* isl *> op->GetInputsO; 

int size » isl>>SizeO; 

int index «• 0; 

isl“>First(); 

while (index < size) { 

Edge *0 ■ isl->GetCur()->GetEdgcO; 
if (c->IsSlrcamO) { 

oldss K e->GetBSplineO; 

TcxtSclection* ts ■ c->GetLabclO; 

TcxtSelcction* lat_ts * e->GctLatcncyO: 

int num * oldss->GetOriginal(xjold, y^old); 

if Transform the original point next to the end into absolute 

// Coordinates. Requires both graphic and piture transforms. 

Transformer *t ■ oldss*>GetTransfoimcrO; 

Transformer pt; 

GetPicture'rr(pt); 

t->Transfomi(x_old[num-2], y.old[num-2], tx, ty); 
pLTransform(tx,ty); 

x_new_n ■ cx; 
y jnewjn = cy, 

if (op->GetaassIdO — OPERATOR) 

FindOperatorlntcrsection(x_ncw_n, yjnew_n, tx, ty); 

else 

Fin(rrerminalorIntcrscction(x_ncw_n, y_new_n, tx, ty); 

//Transform the point back to original Coordinates. 

// Requires both graphic and piture transforms. 
pUnvTransfotm(x_new_n. y_new_n, tt, ty); 
t->InvTransform(tx, ty, x_iiew_n, y_newjn); 
x_ncw » x_old; 
y_ncw * y.old; 
x_ncw(num-l] = x_ncw_n; 
y_new(num-l) ■ y_ncw_n; 

newss «(BSplineSelection*) oldss->CreatcRcshapedCopy(x_ncw,y_ncw4Juro 

JJATAFLOW.SPUNE); 

ReplaceChange* rc « new R^laceChangefthis, dv, oldss, newss); 
rc->Do(); 

ReplaceLabeUnewss, ts); 
if (ts) 

Rq>laceLatency(t8, lat.ts); 


ReplaceLatency(new8s, latjs); 


•M-index; 

isl->lndex(index); 


// Replace all output data flows connected to operator 
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//Changed 2/6/91 
If By Patrick D. Barnes 

// Description: Fixed bug where new endpoint calculation is hosed when 
// picture is zoomed, resized, or scrolled. Previous code did not 
// transform the original spline coordinates before and after calc 
// of new endpoint. "GetCenter" is in absolute Coord, but GetOriginal 
// and CreateReshapedCopy require original Coords. 


void Drawing::Rq)laccOutputDFSplines(Vertex •op. Drawing View* dv) 

I 

float fx, fy, 

Coord cx, cy; 

op->GetShapcO->GetCcnteKfx< fy); 
cx * (Coord) fx; 
cy «(Coord) fy; 

Coord* x_new; 

Coord* y_ncw; 

Coord x_new_0, y_ncw_0; 

Coord* x_old: 

Coord* yjold; 

Coord tx, ty; 

BSplineSelection* oldss; 

BSplineSelection* newss; 

EdgcList* osl »op->GetOutputsO: 

int size « osl->SizeO; 

int index « 0; 

osl->Fiist(); 

while (index < size) { 

Edge *6 « osI->GctCurO->GetEdgcO; 
if (e*>lsStreamO) { 

oldss * osI->GctCur()->GetEdgcO*>GetBSplincO; 
TextSclcction* ts * e->GetLabel(); 

TcxtSelcction* lat_ts ■ e->GetLatencyO; 

int num « oldss->GetOriginal(x_old, y.old); 
x_new_0 * cx; 
y_new_0 * cy; 


// Transform the original point next to the end into absolute 

// Coordinates. Requires both graphic and piture transfonns. 
Transfooner *t« oldss->GetTransfom]erO; 

Transformer pt; 

GetPictureTr(pt); 

t->Transform(x_old[l], y_oId[l]. tx, ty); 
pt.Transfoim(tx,^); 


if (op->GetaassId() »= OPERATOR) 

RndOperatorIntcrsection(x_new_0, y_new_0, tx, ty); 

else 


Fin<frerminatorIntersection(x_new_0, y_new_0, tx, Qr); 


// Transform the point back to original Coordinates. 

// Requires both graphic and piture transforms. 

ptJnvTransform(x_new_0, yjnew_0, tx, ty); 

t->InvTransform(tx, ty, x_new_0, y_new_0); 

x_new * x_old; 

y_ncw w y_old; 

x_ncw[0] * x_new_0; 

y_new(0]» y.newjO; 

newss » (BSplineSelectioD*) oldss>>CreateReshapedCopy(x_new,y_new 4 ium 

J)ArAFLOW_SPLINE); 

ReplaceChange* re « new ReplaceChange(this. dv, oldss, newss); 
rc->Do(); 

R^laceLabel(newss, ts); 
if (ts) 

ReplaceLatency(ts, lat.ts); 
else 

ReplaceLatency(newss, iat_ts); 


♦4-index; 

osl->lndex(index); 

} 


void Drawing;:ReplaceLabel(Selection* newsel, TextSelection* ts) { 
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SclcctionList* tonp * GctScIcctionsO; 
Se!ect(ncwscl); 

Extcnd(ts); 

AIign(Center, Center); 

Selcct(tcmp); 


void Drawing::Rq)laccLatcncy(SeIcction* newscl, TcirtSclcction* lat_ts) | 
if (lat_ts) ( 

SelectionList* temp = GetSelectionsQ; 

Select(newsel); 

Extend(lat_ts); 

Align(Center, Center); 

Align(Top, Bottom); 

Select(temp); 

I 

) 


// add Trigger condition to operator selection list 

void Drawing"TriggerAppend(TextSelection* if_ts, EUipseSelection* op) { 
((Operator •)op->GetOwner()>>Ad<ITriggcr_If(if_ts->GctStringO): 

1 

void Drawing::CommentApp«id(TextSclection* ts) | 
cl*>Append(new CommentNode(ts)); 

I 


// write PSDL specification of drawing to tcmporaiy file to be edited 

void Drawing::WritePSDLSpec(FILE *psdl) ( 
const char •name ■ stat©-3^ctDrawingNameO; 
fprintf(psdi;'%s".OPER_TKN); 
if (name) 

fphntf(psdl ,**^\n" 4 isnie); 
else 

fprintf(psd!,"%s\n"JD_TKN); 

fprintf(psdl/’%s%s%s««^SPEC,TKNJ)ESC.^KN,^EXT_^KN£NDJ^CN)^ 


// write the PSDL graph to a file 

void 0rawing::WritePSDLGraph(FILE* iptr) 

i 

fprintf(iptr.GRjrKN); 

WritcVeiticcs(iptr); 

WriteEdgesOptr): 

I 


// write PSDL edges to file containing PSDL graph 


void Drawing::WriteEdges(FILE* fptr) | 
for (el->FirstO: Iel->AtEndO; eI->NextO) { 

Edge ** el->GctQir()->GetEdgcO; 
if (c->bStateO) 
continue; 

char* fromi ■ c->GetFromOpO ? e->GctFromVcrtexLabeIO • EXTJTKN; 
froml ■ fromi ? fromi: IDJTKN; 

char* tol ■ e->GetToOpO ? e->GctToVcrtexLabclO ^ EXT_TKN; 
tol * tol ? tol: IDjnCN; 

char* label * e->GetLabel() ? ©->GctValidLabcIStringO : IDJIKN; 
char* latency ■ e>>GetLatencyStringO; 
if (latency) 

fprintf(fptr« “flfes %s : %s %s •> EDGE_TKN, label, 
latency, fromi, tol); 


else 


fpiintf(fotr, ”%s %s -> EDGEJITCN, label, 

fromi, tol); 


delete Q fromi; 
delete Q tol; 
delete 0 label; 
delete Q latency; 

} 
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// write PSDL vertices to file containing PSDL graph 

void Drawing::WriteVcrtices(FILE* fytr) { 
for {ol->RrstO: !oI->AtEndO: ol->NextO) { 

TcxtSelcction* ts « oi->GctCurO->Get'\fcftcxO->GctLabcIO; 
char •label * ts ? ts->GetValidStringO : DDJTKN; 
ts = o!->GetCurO->GetVertex()->GetMETO; 
char •met ■ ts ? ts->GetStringO : 0; 

^rintf(fptr, '‘%s %s ”, VERJTKN, label); 
if (met) 

fprintf(fjptr,9J>s\n",mct); 

else 

fprintf(fptr/V); 

delete Q met; 
delete Q label; 

) 


void Drawing::WritePSDLConstraints(FILE •fptr) | 
int count s 0; 

for (ol->RrstO:!ol->AtEndO:ol->NcxtO) I 
Vertex •op * ol->GetCurO->GetVcrtexO: 
if (op>>HasConstraintsO) { 
if {icount++) 
fprintf(fptr.CX)N_TKN); 
op->WritePSDI/!Ionstraints(fptr); 

I 

1 

} 


void Drawing::WriicPSDLImpl(FILE •fptr) | 
fprintf(fptrJMP„TKN); 
WritcPSDLGraph(fptr); 
el->WriteStrcamT^es(fptr,STREAM_TKN): 
WritePSDLConstraintsCfptr); 
fprintf(fptr, "9E>s", END TIW); 

I 


// write psdl specification file and psdl implementation file and write 
// psdl specification file for all the opeiators and write file needed 
// to rebuild operator list when reentering editor 

void Drawing::WritcDFDRlcs(char* dir, const diar^ protoiypc_namc) 

I 

char* spec filename * new char(strlcn(dir) + strlen(prototypc_namc) 

+ SPEC_EXT_LEN + 1]; 

strep y(spec_filename,dir); 
strcat(spec_fi )ename,prototype_name); 
sticat(spec_fi lename,SPEC_PSDL_EXT); 

FILE* sptr ® fopen(spec_filename, "w"); 

WritePSDLSpec(sptr); 

fclose(sptr); 

delete spec.fllaiame: 


char* imp filaaame « new char[$trlen(dir) * strlen(prototype_aaroe) 

+ IMP_EXr_LEN + l]; 


sttcpy(imp_filename,dir); 
strcat(imp_filcname,prototypc_namc); 
strcat(imp_filcnameiMP„PSDL_EX^; 
FIT JR * ipir« fopen(imp_fUename, "w"); 


WritePSDLImpKiptr); 


fclose(iptr); 

delete [] imp^filename; 

WritePSDLFoiA110pcrators(dir. pfDtotype_namc); 

char* gr^h.filcname » new char [8trlcn(dir) + 8tricn(prototype_namc) + 

DFD_EXT_LEN+11; 

8trcpy(graph_filename/li r); 

strcat(graph_filename,prototype_name); 

strcat(graph_filenamci)FD_EXT); 

FILE* gptr ■ fopcn(graph_filenamc."w"); 
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WriteDFDInfo(gptr); 

fclose(gptr); 

delete graph_filename; 

1 

// read psdl specification file and psdl implemenution file and read 
// psdl specification file for all the operators and read in file to 
// rebuild operator list 

void Drawing::ReadDFDKles(char» dir, const char* prototype_name) 

char* eraph filename «* new char [strlenfdir) + strlen(pit)totype_oamc) + 

- DFD_EXT_LEN+1]; 

6trcpy(graph_filename,dir); 

sticat(graph_filename,prototype_name); 

strcat(graph_filenameJ)FD_EXT); 

FILE* gptr = fopm(graph_filename,’'r''); 
if (gptr 1* nil) 

1 

ReadDFDInfofgptr); 

fclosefgptr); 

) 

delete graph_filename; 

CheckFotCompositesfdir, prototype_name); 

) 


// write PSDL specificatio for each operator to a file created by contenating 
H the operator's identifier with the prototype name 


void Drawing::WritePSDLForAllOperatois(char* dir, const char* prototype_name) 

*for (ol->HretO; lol->AtEndO; ol->NertO) 

* TestSelection* ts -ol->GetCutO->GetVeftexO->GetLabelO; 

if(ts) 


char* fixed_name «ts->GetValidStringO: 

char* filename - new chartstrlen(dir) + strlen(prototype_name) 




strcpy(filename,dir); 

sttcatffi lenameprototypejame); 
strcatffilename,".''); 
strcat(filename,fixed_name); 
strcat(filename,SPEC_PSDL_EXT); 

FILE* fptr ■ fopen(filename."w"); 

ol->GetCurO->GetVettex(>>WritePSDL(fptr); 

fcloseffptr); 

delete [] fixed_name; 

delete [] filename; 


) 

// Add the graphics selection s to the current drawing 
H Created: 10/15/94 by C.S. Eagle for .graph format change 

void Drawing: AddlnputSelectionfSelection *s) ( 

Selectfs); 

AppendQ; 

drawingview->Added(); 

drawingview->EraseHandlesO: 

I 


// ReadFgColor and ReadBgColor read color index values from the file 
// pointed to by fptr and returns an IColor • 

// Created: 10/15/94 by C.S. Eagle for .graph format change 

IColor *Drawing::ReadFgColorfFILE •fptr) { 

MapIColor* mf <= stete->GetMapIFgColotO; 
int cnum; 

fscanf(fptr,’'9{>dNn",&cnum): 
return mf->Index(cnum); 

I 

IColor *Drawing::ReadBgColor(FILE *fptr) 1 
MapIColor* mf - state->GetMaplBgColorO; 
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int cnum; 

fscanf(fptr,"%<Ni‘’,&cnum); 
return mf’>Index(cnum); 

) 


// WriteFgColor and WriteBgColor write color index values for IColor ‘c 
// to file *fptr 

// Created; 10/15/94 by C.S. Eagle for .graph foraiat change 

void Drawing::WriteFgColor(nLE *fptr, IColor ‘c) ( 
int cnum = statc->GetFgColorIndcx(c): 
fprintf(fptr,''%<hn",cnum); 

) 


void Drawing::WriteBgColor(FILE *fptr, IColor ‘c) ( 
int cnum ■■ state->GetBgColorIndex(c); 
fprintf(fptr,"9i><hn",cnum): 

) 


// ReadFont creates a new IFont from infoimation in file ‘fptr 
// Created: 10/15/94 by C.S. Eagle for .graph format change 

IFont ♦Drawing::ReadFont(FILE *fptr) 1 
MapIFont* mf = state->GetMapIFont(); 
int fonmum; 

fscanf(fptr,"91<Ni",Stfontnum); 
return mf->Index(fonmum); 

) 


// WriteFont save font information to file ‘fptr 

// Created: 10/15/94 by C.S. Eagle for .graph format change 

void Drawing::WriteFont(FILE *fptr, IFont *1) { 
int fontnum » state->GetFontIndex(f); 
fprintf(fptr,"9t(hn"/onmum); 

1 

// read a point rom a file 

// Created: 10/17^ by C.S. Eagle for .graph format change 

void Drawing::ReadPoint(FILE ‘fpiriit textflag. Coord &x. Coord &y) ( 
fscanfffptr, ''%d 4Ii<hn“, &x, &y); 
if (Itextflag) ( 

Transformer *t * state->GetGraphicGSO->GctTransformer(): 
t->InvTiansfoim(x,y); 

1 

1 

// write a point to a file 

// Created: 10/17/94 by C.S. Eagle for .graph format change 

void Drawing::WritePoint(FILE •fptr. Transformer *1, Coord x. Coord y) ( 
t->Transform(x,y); 
fprintf(fptr, "%d 9M'o"ji,y); 

I 

// WriteTS writes a TextSeleetion to file *fptr 

// Created: 10/15/94 by C.S. Eagle for .graph format change 

void Drawing::WritcTS(TcxtSelcction *ts,FILE •^tr) { 

if (its) I 

fprintf(fptr"Chn"); 

return: 

I 

char ’text - ts->GetString0; 
if (Itext) ( 
fprintf{fptr,''0Vn"); 
return; 

) 

fprintfffptr, ''?tdin%s\n".strlen(text),text): 

WriteFontffptr, (IFont •) ts->GetFont0); 

WriteFgOrloKfptr, (IColor •) ts->GetFgColorO); 
fprintf(fptr,"(hn"); 

WritePoint(fptr,ts->GetTtansformer(),0,0); 

I 
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// ReaJTS reads a TextSelection from file »fptr 
// Created: 10/15/94 by C.S. Eagle for .graph format change 

TextSelection *Drawing::ReadTS(QassId cid. FILE ‘fptr) | 
TextSelection ‘ival» 0; 
char text[256]; 
intlen; 

charfotmat[15]; 
fscanf(fptr,"%<f>n",&len); 
if (len) I 

sprintffformat, "%%%dc'Sn"4cn); 
fscanfffptr. format, text); 
text[leni ” 0; 

rval = new TextSelection{cid,text,len,state->GetTextGSO); 
ival->SetFont(ReadFont(fptr)); 

tval->SetColors(ReadFgColot(fptr)mewIColor("White")); 

int defPos; 

fscanf(fptr,"9E)dVn",&defPos); 
if (IdefPos) I 

rval->SetDefPosition(false); 

Coord X, y; 

ReadPoint(fptr,l ji.y); 

tval->SetTransfotmer(new TransformeKl ,0.0,1 ,x,y)); 

1 

AddlnputSelection(rval); 

I 

retara rval; 

I 


// WriteGraphEdge saves all the information needed to 
// represent an edge in the graph 

// Created: 10/15W by C.S. Eagle for -graph format change 


void Drawing::WriteGraphEdgc(FILE *outfile. Edge *df) { 
fprintf(outfile, ''9E)uVi", DATAFLOW_SPLINE); 
int to_index; 
if (df->GetToOp()) 
to_index = df->GetToOp()->GetId(); 
else 

to_index = -1; 
int from_index; 
if (df->GetFromOp0) 
from_index • df->GctFromC)p()->GetIdOi 
else 

from_index * -1; 

BSplineSelection* flow - df->GetBSplineO: 

Coord ‘x, •y; 

int npts = flow->GetOriginal(x,y); 
fprintf(outfile,"%d %d %d ^uNn", npts, 

fromjndex, to_index, df->StreamTypeO); 
for(int i « 0; i<ipts; i++) 

WritePoint(outfile41ow->GetTransfoimer(),x[i].y[i]); 

WtitcFgColortotitfiie,aColor •) flow->GetFgColor0); 
WriteTS(df->GetLabel(), outfile); 
if (from_index 1« to_index) 

WriteTS(df->GetLatency(), outfile); 


// Writes the operator's attributes to disk, 

// Created: 10/15/94 by C.S. Eagle for .graph format change 

void Drawing:;WtiteGraph'\fcttex(FILE ‘outfile. Vertex ’os) ( 
int cid = os->GctClassId0; 
fprintffoutfile, ’'4feu\n", cid); 
fprintf(outfile,''%d\n’', os->GetId0); 

Selection ‘s - os->GetShape0; 
if (cid — OPERATOR) I 
int xO, yO. rx, ry; 

EllipscSclection ‘es * (EllipseSclcction •) s; 
es-:^etOriginal (x0,y0 jx.ry); 

WritePoint(outfile, es->GetTtansfonnetO.*0,yO); 
fprintfioutfile, *'%d %<bn"jx,ry); 

I 



Coord 1, b, r, t; 

RectSelection ^rs = (RcctSclection *) s; 
is->GetOriginaI2(l,bj‘,t); 

WritePoint(outfiIe, rs->GctTnuisformer04,b); 
WritcPomt{outfile, rs->GctTiansfonncr04‘.t); 

I 

WritcFgColor(outfilc,(IColor •) s->GetFgColorO); 
WritcBgColor(outfile»(ICoIor *) s->GctBgColorO); 
WriteTS(os->GetLabclC),outfiIc); 
if (cid« OPERATOR) 

WriteTS(os->GctMETO.outfilc): 

else 

fyrintffoutfile/'CM"); 

I 

// write information to file to be able to rebuild operator list when 
// coming back into editor 

// Created: 10/15/94 by C.S. Eagle for .graph format change 

void Drawing::WriteDFDlnfo(FILE* ^tr) { 

for {ol->Hrst(); lol->AtEndO: ol->Ncxl()) 
WritcGraphVcitex(fptr,ol->GctCurO->GctVertexO); 

for (el->FirstO: lel->AtEndO; el->NextO) 
WritcGraphEdge(fptr.el->GetCurO>GrtEdgeO); 

for (cl->RrstO: !cl->AtEndO: cl->NextO) I 
fyrintf(fptr,"%u\n",COMMENT); 
WritcTS(cI->GetCurO'>GclSeIectionO. fptr): 

1 


fprintfffptr, "9&uNn", END_MARKER); 

fprintf(fptr,“%d 9&dSn"4diaw->wWidth04draw->wHcight0); 

Perspective *p » drawingview->GetPcrspectivcO; 

fprintf(fptr;'%d %d %dSn".p->curx, p->cury. p->curwidth, p->curhci^t): 

WritcFgColoKfptr. state->GetFgColorO): 

WriteBgColorffptr, 8tatje->GetBgColorO): 

WriteFont(fptr, stato->GetFontO); 

} 


// Builds the stream &om disk. 

// Created: 10/15/94 by C.S. Eagle for .graph format change 

void Drawing::ReadGraphEdge(FIUB *infile) { 

Coord •x, *y; 
int is^strearo; 
int from_index, to_index; 
int npts; 

fscanf(infile, %d %u\n", &npts, 

&from_index, &to_index, &is_8tream); 

X B new Coord[npts]; 
y B new Coord(npts]; 
forfint i« 0; i<npts; i++) 

ReadPoint(infile,0^[i],y[i]); 

IBrush *oldBrush » state'>GetBrushO; 

MaplBrush •mb * state->GetMapIBnirfiO; 

IPattem •temp * state->GetPattemO; 

state->SetPattem(sUte->GetAnDwPattemO); 

stotc->SetFgColor(ReadFgColor(infilc)); 

BSplineSelection •flow; 
if (from^index ■«*to_index) { 
staie->SctBrush(mb->FindOrAppcnd(0»0xfnf,1.0,l)); 
flow « new 

BSplineSelcction(SELFLOOPji,yjipts^te->GetGraphicGS0); 

1 

else { 

if (is_stream 2) 

aute->SetBrush(mb->FindOrAppcnd(0,0xroro,2,0,l)); 
flow ■ new 
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BSplineScIcction(DATAFLOW_SKJN^x,y,npts^tate->GctGraphicGS0): 

) 


DataFlowSpIincAppcnd(flow,ol->FiiidC^(from_index)»o!->FindC^(to_mdex)); 

state->SetBnish(o}dBrush); 

8Ute->SetPattem(temp); 

AddlnputSelection(flow); 

TcxtSelection *namc; 
if (fromjndcx to_index) 
name ■= ReadTS(LABEL_SL,infile): 
else 

name * RcadTS(LABELJ)F4nfilc); 

Edge ♦e * (Edge •) flow->GetOwncr(); 
if (name) { 

e->SetLabel(name); 
if (naroe->GetDefPositionO) 
fiow->Align(Center, name, Center); 

I 

if (from^index !»to_index) { 

TcxtSelection *lat *= ReadTS(LAT_DF,infilc); 
if(Iat){ 

e->SetLatency(lat); 
if Oat->GetE)cfPositionO) ( 
if (name) { 

name->Align(Centcr,lat,Center); 

name‘>Align(Bottom,lat,Top); 

I 

dse 

flow->Align(Center, lat. Center); 

I 

I 


// Builds an operator from a disk file. 

// Created: 10/15/94 by C.S. Eagle for .graph format change 

void Drawing::ReadGraphVcitex(FILE *infile4nt cid) { 
int id; 

fscanf(infile,''%dVn",&id); 
int xO. yO, rx, ry; 

ReadPoint(infile,04i0,y0); 
if (cid «= OPERATOR) 
fscanf(infile, "9£>d &rx, &iy); 

else 

ReadPoint(infilc,Ojx,ry); 

stotc->SetFgColor(RcadFgColor(infilc)): 

state->SetBgColoKReadBgColor<infiIc)): 

Selection *s; 

if (cid = OPERATOR)! 

EUipseSelection *es e new 

EllipscSclection(xO, yO. rx, ry4tate->GetGraphicGS0): 
OperatorAppendfesdd); 

8«es; 

I 

else ( 

RectSelection *is « new 

RcctSeicction(xO, yO, rx, iy,stote->GetGfaphicGSO); 
Operate rAppendfrsdd); 
ssrs; 

I 


AddlnputSelectionfs); 

TcxtSelection *namc « ReadTS(LABEL_OP, infile); 
TcxtSelection •mets » ReadTS(MET_OP, inhle); 
Vertex ‘op * (Vertex •) s->GctOwncrO; 
if (name) { 
q>*>SetLabel(name); 
if (name->GetDefPositionO) 
s->Align(Ccntcr, name. Center); 

I 

if (mets) { 

{(Operator •)op)*>SctMET(mcts): 
if (mcts->GetDc(PositionO) I 
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s->Align(Center, mets, Center); 
s->AlignCrop, mets. Bottom); 

) 


// Read in file to rebuild the graphics picture, and the underlying 
//DFD strocturc 

// Created: 10/15/94 by C.S. Eagle for .graph format change 

void Drawing::RcadDFDInfo(FEJE* fptr) { 

Classld cid; 

TextSelection *ts; 

state->SctTcxtGS(0,0,statc->GetTextPainterO): 
do { 

fscanf(fptr, "%u", &cid); 
switch (cid) { 
case TERMINATOR: 
case OPERATOR: 

ReadGraphVeftex(fptr,cid); 

break; 

case DATAFLOW.SPUNE: 

ReadGraphEdge(fptr); 

break; 

case COMMENT: 
ts - ReadTSeCOMMENT/ptr); 
cl->Append(Rew CommeQtNode(ts)); 
break; 

I 

) while (cid la*END_MARK£R); 

Shape *s ■ new Shape; 
int X, y, w, h; 

fscanf(fptr,"%d %dNn",&w,&h); 

s*>Rect(w,h); 

idraW'>Re8hape(*s); 

Perspective p; 

fscanf(fptr,**%d %d &y. &w.«Skh); 

p.Init(x.y.w4i); 

drawingview*>Adjust(p); 

stote->SetFgColor(ReadFgColor(fptr)): 

state->SetBgColoKReadBgColor(fptr)); 

sUte->SetFont(ReadFont(fptr)); 

Oearf); 

drawingview->EraseHandlesO; 

I 

void Drawing::GenerateAda(FIL£ •fptr, Vertex •v) | 
v>>GenerateAda(fptr); 

I 

void Drawing::TagOpcrator(Vertcx •v, char •tag) { 
TextSelection •tagsel ■ 

new TextSelection(tag,stricn(tag),state->GetTextGSO); 
AddlnputSelection(tagsel); 
v->SctTag(tagscl); 

TextSelection •Is * v->GctLabelO: 

U->Align(Center, tagsel. Center); 
ls>>Align(Top, tagsel. Bottom); 
drawingview*>EraseHandlesO; 

QcarO; 

I 


void Drawing::CheckFoiComposites(char^ dir, const char* prototypc_namc) 

I 

for (oi*>RrstO; !ol->AtEnd(); ol->NcxtO) 

I 

TextSelection* ts ■ol->GetCurO->GetVeitcx()->GctLabel(); 
if(ts) 

I 

char •fixed_name • ts->GetValidStringO; 

char* filename ■ new char{strlcn(dir) siricn(prototypc_namc) 

+ strten(fixed_name) + DFD_EXT_LEN + 2]; 

strcpy(filename4ir); 
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strcat(filcnamc^rototypc_iiame); 

strcat(fi]ename 

6ticat(filename4ixed_name); 
strcat(fiIenamcJ)FD_EXT); 
if (Exists(filename)) 

TagOperatoKol->GetCur()->GetVertcxO."*''); 
delete [] fixed.name; 
delete [] filename; 


} 


) 


drawingview.h 


#ifiidef drawingview_h 
#define drawingview^h 

tincludc <IntcrV!cwsA3raphic/grblock.h> 

// Declare imported types. 

class Damage; 
class Page; 
class Rubberband; 
class Selection; 
class Selectionlist; 
class State; 
class TextEdit; 

// A Drawing\^ew displays the user's drawing. 

class Drawing View : public GraphicBlodc { 
public: 

DrawingVicw(Pagc*); 

-DrawingViewO; 

void SctSelcctionList(SclectionList*): 
void SetState(State*); 
void SetToolsClnteractor*); 

void DrawQ; 

void HandleOBvent&); 

void ManipulateC 

Evcnt&. Rubberband*, int, boolean constrain=tiue, boolean crasess^roe 

); 

void Edit(Event&, TextEdit*, Graphic* * nil); 

void DrawHandlesQ; 
void RedrawHandlesQ; 
void EraseHandlesQ; 

void EraseExcessHandlesCSelectionList*); 
void ErasePidcedHandlesfSclection*); 
void ErascPickcdHandies(SclectionList*); 
void EraseUngraspedHandlesfSelection*}; 

void ResetAllHandlesO; 

void AddedO; 
void DamagedQ; 
void RepairQ; 

void Magnify(Coord, Coord, Coord, Coord); 

void ReduccO; 

void EnlargeO; 

void NormalSizeO; 

void RcduccToFitO; 

void CenterPageO; 

protected: 

void ReconfigO; 

void Redraw(Coord, Coord, Coord, Coord); 
void R«ize(); 

float LimitMagnificatioo(float); 
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void StartT©xtiEditing(Ev«rt&, TextEdit*, Graphic*); 
void EndTextEditingO: 
void RcdrawTextEditorO; 

Damage* damage; 

Graphic* gs; 

Page* page; 

Paintci^ lastenor; 

SelectionList* si; 

State* state; 

TextEdit* tcxtedit; 

Interactor* tools; 


#endif 


// ke^s track of damaged areas of drawing 
// lemonbers text being edited 
// snaps points to grid 

// stores painter with which to draw handles 
// lists current Selections 
// stores Graphic and nonGraphic attributes 
// redraws in-place texteditor if necessaiy 
//handles events 


drawing view.c 


#include "drawingvicwJi" 

#include "istringJt“ 

#inc)ude "listselectn.h" 
tinclude *'page.h" 
tinclude *'slpicth" 
tinclude "stateJi" 

#include "textedith" 

#include ^terViews/Graphic/damageJi> 

#include <dnterVicws/event.h> 

#include <lnterViews^ainteri)> 
tinclude <lnterViews^erspectiveit> 
tinclude <InterViews/nd)bandJi> 
tinclude ^terVicwsA(eRsorii> 
tinclude ^terViews/shapeii> 
tinclude <5tdlibJi> 
tdefine _POSIX_SOURCE 
tinclude <mathJi> 

// DrawingView caches its canvas' contents if possible to speed up 
// redrawing after expose events. 

static const int PAD « 0;// we don't want any padding around graphic 

DrawingView; J)rawingVicw (Page* p): (updownEvents, p, PAD, Center, Binary) ( 
damages nil; 
gs « nil; 
pagc*p; 
rasterxor» oil; 
si - nil; 
state s nil; 
textedit« nil; 
tools " nil; 

SetCanvasType(CanvasSaveContents); 

1 

// Free storage allocated to store membera. 

DrawingView: :*-DrawingView 0 { 
delete damage; 

Unref(rasterxor); 

I 

// Define access functions to set membeis' values. Only Idraw sets 
// their values. 

void Drawing^ew::SetSelectionIist (SelectionList* slist) ( 
si B slist; 

I 


void DrawingVtew::SetState (State* s) { 
state B s; 

I 

void DrawingA^ew::SetTools (Interactor* t) { 
tools Kt; 
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) 


// Draw draws the entire view. Draw calls Check for its side effect 
// of flushing any redraws caused by a dialog boa's removal before 
// dravring the view. 

void DrawingViewrDraw () ( 
if (graphic != nil) ( 

Graphic* backup » graphic; 
graphic nil; 

CheckO; 

graphic = backup; 

GraphicBlock:J)rawO; 

damage->ResetO; 

ResetAIlHandlesO; 

RedrawHandlesO; 

RedrawTextEditorO; 

I 

1 


// Handle delegates input events to the tools. 

void DrawingViewiBandle {Event& e) ( 
toolS'>Handle(e); 

) 


// Manipulate lets the user manipulate the Rubberband with the mouse 
// until a specified event occurs. 

void Drawing^fiew::Manipu^atc (Event& e, Rubbciband* lubberband, int et, 
boolean constrain, boolean erase) ( 
nibbeiband->SetPainter(rasterxor); 
rabbeiband->SetCanvas(canvas); 

Listen(allEvents); 
while (e.eventType !• et) ( 

if {e.evenlType «« MotionEvent) { 
nibbeiband->Track(e.x, e.y); 

) 

Read(e); 
if (constrain) ( 
page->Constrain(e.x, e.y); 

I 

I 

Listen(input); 
if (erase) { 

nibbetband->EraseO: 

) 

1 

// Edit lets the user enter text into the drawing. 

void DrawingViewiidit (Event* e, TextEdit* textedit. Graphic* gs) ( 
StattTextEditing(e, textedit, gs); 

textedit->Grasp(e); 

Listen(allEvents); 

while (textedit->Editing(e)) ( 

Read(e); 

I 

UnRead(e); 

Listen(input); 

EndTextEditingO: 

I 


// DrawHandles tells all the Selections to draw their handles unless 
// they've already been drawn. 

void DrawingView: JhawHandles () i 

for (5l->Krst(); lsl->AtEndO; sl->NextO) I 

sl->GetCuiO->GetSelection()->DrawHandles(rasterxor, canvas); 


I 

// RedrawHandles tells all the Selections to redraw their handles 
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// whether or not they've already been drawn. 

void DrawingView::RedrawHandles 0 1 
for (sl->FirstO; !sl->AtEndO; sl->NextO) I 

5l->GetCur()->GetSelecti on 0->RedrawHandles(rasterxor, canvas); 

) 

) 

// EraseHandles tells all the Selections to erase their handles unless 
// they've already been erased. 

void DrawingView:£raseHandles 0 1 
for (sl->Kist(); lsl->AtEndO: sl->NextO) ( 

sl->GetCuK)->GetSelectionO->EraseHandIes(rasterxor, canvas); 

I 

I 


// ErascExccssHandles erases the excess Selecbons' handles if it 
// doesn't find the Selections in the current SelectionList 

void DrawingVicw;£rascExcessHandles (SelectionList* newsl) ( 
for {sl->RtstO; lsl->AtEndO; sl->NextO) ( 

Selection* oldselection - sl->GetCur(>>GetSelectionO; 
if (lnewsl->Find(oldselection)) ( 

oldselection->EtaseHandles(tasterxor, canvas); 

) 

I 

I 


// ErasePickedHandles erases the picked Selection's handles if it 
// finds the picked Selection in the SelectionList 

void DrawingViewrf rasePickedHandlcs (Selccnon* pick) ( 
if (sl->Find(pick)) ( 

sl->GetCut()->GetSelectionO->EraseHandles(rasterxor, canvas); 

) 

1 

// ErasePickedHandles erases the picked Selections' handles if it 
II finds the picked Selections in the SelectionList. 

void DrawingView:£rasePickedHandlcs (SelectionList* pi) { 
for (pl->FirstO: lpl->AtEnd(); pl->Next()) ( 

Selection* pick ■ pl->GetCurO">GctSeIcctionOl 
if (sl->Find(pick)) | 

sl->GetCurO->GetSelectionO>EtaseHandles(tasterxor, canvas); 

I 

I 

I 


// EraseUngraspedHandles erases all of the handles only if the 
// Selectioriist does not already include the picked Selection. 

void DrawingViewif raseUngraspedHandles (Selection* pick) ( 
if (!sl->Find(pick)) | 

EraseHandlesQ; 

) 

I 

// ResetAllHandles resets all of (he handles because the Selections 
// may have moved out from under their handles. 

void DrawingView::ResetAIIHandles 0 ( 

PictSelection* picture = page->GetPictuteO; 
for (picture->FirstO; lpictote->AtEndO; picture->Next()) { 
Selection* s * picture-bGctCurrentO: 
s->ResetHandlesO; 

I 

I 

// Added adds the Selections to the list of Selections in the drawing 
// to be drawn for the first time. 


void DrawingView;;Added () 1 

for (sl->Fitst(); !sl->AtEndO; sl->NextO) I 

damage->Added(sl->GetCur()->GetSelection()); 
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} 

I 

// Damaged adds the areas covered by the selected Selections 
// (including their handles, too) to the list of damaged areas in the 
// drawing to be r^aired. 

void DrawingView: JJamaged () { 

BoxObj box; 

for (sl->Fiist(); !sl->AtEndO; sl->NextO) { 

si->GctCur()->GctSelectionO‘>GetPaddcdBox(box); 
damage->lncu r(bo x); 

I 

) 


// Rq)air r^airs the drawing's damaged areas and then redraws Ae 
// Selections' handles. The damaged areas must have included all Ac 
// handles for RedrawHandles to work correctly. 

void DiawingVicw::R^air 0 { 
if (damage->IncurTedO) I 

damage->RcpairO; 

RedrawHandlesO; 

I 

I 


// Magnify magnihes Ae given area to fill Ae view. 

void DrawingVicw::Magnify (Coord 1, Coord b, Coord r, Coord t) 1 
Perspective np; 
np ■= •GctPer^ectiveO; 
np.curx mm(l, r); 
np.cury +* mm(b, t); 
np.curwidA « max(abs(r • 1), 1); 
np.cuAeight« max(ab6(t • b). 1); 

Adjust(np); 

) 


// Reduce reduces Ae drawing's magnification by a factor of two. 

void DrawingView::Reduce Q ( 
SetMagnification(GetMagnificationO / 2); 

I 

// Enlarge enlarges Ae drawing's magnification by a factor of two. 

void DrawingVicw:£nlarge 0 { 

SetMagiiification(2 * GctMagnificationO); 

I 


// NormalSize resets Ae drawing's magnification. 

void DrawingView:AformalSize 0 ( 
SetMagnification( 1.); 

} 


// ReduceToFit reduces Ae drawing's magnification enough to fit all 
// of Ae drawing in Ae window. 

void DrawingView::RcduceToFit () { 

Perspective np; 
np « •GetPerspectiveO; 
np.curx ■* np.xO; 
np.cury « np.yO; 
np.curwidA * np.widA; 
np.curheight« npAeight; 

Adjust(i!p); 

I 

// CentcrPagc lecentcrs Ae drawing over Ac window's center. 

void DrawingVicw::CcntcrPagc 0 I 
register Perspective* p * perspective; 

Coord left, bottom, right, top; 

page*>Center(mag. xmax/2, ymax/2); 
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GetGraphicBox(left, bottom, right, top); 

xO-left; 

yO » bottom; 

p->width * right - left + 2*pad; 

p->hei^t«top - bottom + 2*pad; 

p->curwidth = xmax + 1; 

p->ciirhcight = ymax + 1; 

p->curx = (p->width - p->curwidth)/2; 

p->cufy «(p->hcight - p->cuihcight)/2; 

p'>Update(); 

Draw(): 

\ 

// Reconfig gives output the page’s background color, creates a 
// painter for drawing the rubberbands, and asks for the smallest 
// possible canvas if the user wants a small window- 

void DrawingView::Reconfig () ( 

Color* bg 3B page->GetBa^groundColorO! 
if (output->GetBgColor<) !*bg) { 

Painter* copy * new Painter(ou^ut); 
copy->RefcrenceO; 

Unreffoutput); 
output K copy; 

output->SetCoiofs(output*>GetFgColorO. bg): 

I 

if (rasterxor ^ nil) ( 

rasterxor « new Painterfoutput); 
rastcaor->RefcrenceO; 

I 

if (strcmpCGetAttributeC'smair'), ’tnie") * 0) { 
shape->width « 0; 
shape'>hei^t» 0; 

GraphicBlock::ReconfigO; 

I 

// Redraw draws a rectangular subpart of the view. 

void DrawingVicw;:Redraw (Coord I, Coord b. Coord r. Coord t) { 
if (graphicnil) { 

GraphicBIock:;RedrawO, b. r.t); 
rasterxor>>Clip(canvas, 1, b, r, t); 
for (sl->Hr5tO: !s!->AtEndO; sl->NextO) ( 

Selection* selection «• sI->GetCur()->GetSelcctionO; 
sdection*>RedrawUnclippedHandles(rasterxor, canvas); 

I 

ra8terxo^^oOipO; 

RedrawTextEditorO: 

I 

I 

// Resize recreates damage in case canvas changed its value- 

void DrawingView::Resize 0 f 
GraphicBlock::ResizeO; 
delete damage; 

damage * new Damage(canvas, output, graphic); 

ResetAllHandlesO; 

i 

// limitMagnification limits the factor by which DrawingView may scale 
// the view of the drawing to avoid torturing the X server. In 
// addition, LimitMagnification updates State's stored magnification. 

H Alternatively, State could have attached itself to DrawingView's 
// perspective if it was an Interactor like MagnifView. 

float DrawingView: J^imitMagnification (float desired) { 
const float MIN « 1./8.; 
const float MAX ■ 16,; 
if (desired < MIN) { 

desired MIN; 

I else if (desired > MAX) { 

desired e MAX; 

I 
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statc->SetMagnif(dcsire<i); 
return desired; 

} 

// StaitTextEditing stores the textedit and draws it on the canvas. 

void DrawingView::StartTcxtEditing ( 

Evcnt& c, TextEdit* textedit. Graphic* gs 

)l 

DrawingVicwirlextcdit«textedit; 

DrawingView::gs * gs; 


page'>Constrain(e.x, e.y); 
if (gs I- nil) I 

6tate>>SetTextGS(gs, ou^ut); 

) else { 


stet©->SetTextGS(e.x, c.y, output); 


I 

textcdit->Rcdraw( 

5tate->GctTextPaintcfO. canvas. stato*>GctUneHt(). false 


} 


); 


// EndTextEditing marks the area damaged by the textedit for later 
// repair and forgets it has a textedit. 


void DrawingView:£ndText£diting 0 ( 

Coord xmin. ymin, xmax, ymax; 
textedit->Bounds(xmin. ymin, xmax, ymax); 
damage->Incur(xmin, ymin, xmax, ymax); 
gs-nil; 
textedit« nil; 

I 

// RedrawTcxtEdit redraws the textedit on the canvas after a Resize or 
// other asynchronous window event 


void Drawing\^cw::RedrawTextEditor 0 { 
if (textedit 1« nil) ( 

if (g! I«nil) { 

8tate->SetTextGS(gs. ou^ut); 


textedit*>Redraw( 

$tat©'>GetTextPaintcrO, canvas, state->GctIincHtO. troc 


editorJi 


#i£ndef editor^b 
#dcfine editor^h 

#include ^lerView8/dc£Bii> 
finclude •dntcrVicws/Std/streamJi> 

II Declare imported types. 

class ChangeNode; 
class Chooser 
class (Tonhrmer, 
class Drawing; 
class DrawingView; 
class Event; 
class Selecter; 
class History; 
class IBrush; 
class IColor, 
class IFont; 
class IPattem; 
class interactor, 
class Messager, 
class Namer. 
class Painter; 
class RubberEllipse; 
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class RubberLine; 
class RubberRect; 
class State; 
class Tools; 

// An Editor lets the user perfonn a drawing or editing operation on 
// a Drawing, 

class Editor ( 
public: 

Editor(lntcractor*); 

-EditoK); 

void SetDrawingtDrawing*); 

void SetDrawingVicw(DrawingVicw*); 

void SetStatc(Statc*); 

void SctTools(Tools*); 

void SetDirectory(char*, diar*, diar*); 

void HandleSelect(Evait&); 

void HandIe>^ve(Event&); 

void HandleScalc^vent&); 

void HandlcModify(Event&): 

void HandleMagnify(£vent&); 

void HandleDecompose(Event&); 

void HandleText(Eveot&); 

void HandleLabel(Event&); 

void HandleMET(Event&, char * units); 

void Handlelf (£vent&); 

void HandleLatency(Evcnt&, char • units); 
void HandleBSptine(Evcnt&); 
void HandleEllipse(Event&); 
void HandlcRe<^vent&); 

/* ***** Start of Commented Out Code ••••* 
void HandleStretch(Evcnl&): 
void HandleRotate(Event&); 
void HandleMultiLine(Evcnt&): 
void HandlePolygon(Evcnt&); 
void HandleOosedBSpline(Event&); 

***** End of Commented Out Code ***** */ 

void Ncw(); 

void RevertO; 

void Open(coost diar*); 

void OpenO; 

void SaveO; 

void CommitO; 

void SaveAsO; 

void PrintO: 

void Quit(Bvent&); 

void CheckpointO; 

void TJndo(); 
void RedoQ; 
void Cut(); 
void CopyO; 
void PasteO; 
void DuplicateO; 
void DeleteO; 
void SdectAllQ: 

void SetBiush(IBrush*); 
void SctFgColordColor*); 
void SctBgColordColor*); 
void SctFont(IFont*); 
void SetPaUem(IPattem*); 

void AlignLeftSidesQ; 
void AlignRightSidesO; 
void AlignBottornsQ; 
void AiignTopsO; 
void AlignVeitCentersO; 
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void AlignHorizCcntcrsO; 
void AlignCcntcrsO; 
void AlignLcftToRightO; 
void AlignRightToLeftO; 
void AlignBottomToTopO; 
void AlignTopToBottomO; 
void AlignToGridO; 

void ReduceO; 

void £nlaige(); 

void RcduccToFitO; 

void NonnalSizcO; 

void CcntcrPageO; 

void RcdrawPageO; 

void GriddingOnOffO; 

void GridV^iblcInvisiblcO; 

void GridSpadngO; 

void OrientationO; 

void ShowVeisionO; 

void ResetMessage(const char*); 

void ToolSet(char); 

protected: 

const char* MakeFilcname(const char*); 
const char* MakcSpecRlcname(const diar*); 
void t)o(ChangcNode*); 

void InputVerticcs(Ev«it&, Coord*&, Coord*&, int&); 

RubberLine* NcwRubbciLineOrAxis(Evcnt&); 

RubberEllipsc* NcwRubbcrEUipscOrCircie(Event&): 

RubbcrRect* NcwRubberRcctOrSquare(Evcnt&); 
boolean OfferToSaveO; 
void Reset(const char*); 

History* history; // changes made to drawing 

Messager* numteiofdialog; // displays how many graphics the drawing has 

Selector* opendialog; // prompts for name of a drawing to open 

Confimier* overwritedialog:// confinns whether to overwrite a 61e 

Namer* pteemovedialog: // prompts for X and Y movement in points 

Namer* precrotdialog: //prompts tor rotation in degrees 

Namer* precscaledialog; // prompts for X and Y scaling 

Namer* ptintdialog. H f®' P"”‘ 

Messager* leadonlydialog; // tells user drawing is readonly 
Confimier* revertdialog; // confirms whether to revert from a file 
Selecter* saveasdialog; // prompts for name to save drawing as 
Confirmer* savecurdialog; // confirms whether to save cotrent drawing 
Namer* spacingdialog; // prompts for grid spacing in points 

Messager* vetsiondialog; // displays idraw's veision level and author 
Chooser* decomposodialog; // displays decomposition choices 
Messager* nolabeldialog: // tells user that cannot decompose because 

// operator chosen has no label 


Drawing* drawing; 

DtawingView* drawingview; // displays drawing 
State* state; 


// performs operations on drawing 

//stores Graphic and nonGraphic attributes 


char* dir, // directory where prototypes are stored 

char*ddbCmd; // name of program to update the design_database 


char* design_database; // name of the desi^ database to load. 

Interactor* inter // store the interactor (idiaw) for editor 

// in order to change cursor for Annotate 


Tools *t(X)ls; 


#endif 

editor.c 

#include "dfdclassesJi" 
#include "dfd^defeJi" 
#include "dialogbox.h" 
#include "drawing-h” 
#include "drawingviewji" 
#include “erlitorJi" 
#include "historyJi" 
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#include “idrawJi" 

#include “istringJi" 

#include "listchangcJi" 

#include "listseiectn.h" 
finclude "mapipainth" 

#ijiic)ude "psdllists.h" 

#include “psdlcompJi" 

#include "rubbandsJ)" 

#include “selectioiLh" 
tinclude "slcllipscsii" 

#include "sliincsJi" 

#include "slpoIygonsJi*' 

tinclude ''slsplines.h" 

tinclude "sltexth" 

tinclude "stateJi" 

tinclude "textcdith" 

tinclude "tools.h" 

tinclude ”version.h" 

tinclude "selecterJi** 

tdefine _POSIX_SOURCE 

tinclude <InterViews/Std/mathJi> 

tinclude ^terViews/cuisor.h> 

tinclude <InterViews/evcnth> 

tinclude <lnterVicwsAransformerii> 

tinclude ^terViews/Gfaphic/utilJi> 

tinclude <sys/param.h> 

tinclude <b6tring.h> 

tinclude <Inter^^ews/Std/std^oJl> 

tinclude <5tringii> 

extern "C” | 
int forkO; 

int exec]p(char*,...); 
int exit(int); 
int wait(long*); 
int 8ystem(coast diar*); 

1 

// used to find all prototypes in directory defined in "selecterx” 

void find^rototype_naincs(char**, <diar*, const char*); 

// Editor creates its history and dialog boxes. 

Editor:£ditor (Interactor* i) { 
history » new History(i); 
nomberofdialog * new MessageKi); 

opendialog • new Selecter(i, "Select prototype to edit:". Center); 
overwritedialog* new Confinner(i, "already exists; overwrite?"); 
precmovedialog ^ew Namer(i,"Enter X and Y moveoient in printer's points:"); 
precrotdialog ■ new NameKi. "Enter rotation in degrees:"); 
precscaledialog « new NaRier(i, "Enter X and Y scaling:"); 
printdialog ■ new Nanier(i, "Enter print command:"); 
leadonlydialog « new Mcs5agei<i. "Drawing is readonly."); 
reveitdialog * new Confirmer(i, "Really revert to original?"); 
saveasdialog * new Selecter(i, "Select prototype to save:". Center); 
savecurdialog *■ new Confirnier(i, "Save current drawing?"); 
spacingdialog ■ trew Namer(i, "Enter grid spacing in printer's points:"); 
versiondialog *new MessageKi. version); 

decomposedialog » new Chooser(i, "Choose decomposition type:", 

'X3raphic Editor"," Ada ", 

" Search "); 
noiabeldialog « 

new MessageKi. "Operator has no label, cannot decompose."); 

drawing * nil; 
drawingview * nil; 
state « nil; 
inter ■ i; 

1 


// ''Editor frees storage allocated for its history and dialog boxes. 

Editonr-Editor () | 
delete history; 
delete numberofdialog; 
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delete opendialog; 
delete overwritedialog; 
delete prccmovedialog; 
delete prccrotdialog; 
delete precscaledialog; 
delete printdialog; 
delete readonlydialog; 
delete reveitdialog; 
delete saveasdialog; 
delete savecurdialog; 
delete spacingdialog; 
delete versiondialo^ 

I 


// Define access functions to set members' values. Only Idraw sets 
// their values. 

void EditoriSetDrawing (Drawing* d) 1 
drawing = d; 

I 

void Editor:;SetDrawingView (DrawingView* dv) { 
drawingview = dv; 

) 

void £ditor::SetStatc (State* s) { 
staters; 

) 

void Editor::SctTools (Tools* i) { 
tools =i; 

1 

// set the directory of ptototytpes to the given character string 
//Changed 1/31/91 
// By Patrick D. Barnes 

// Description; Sets prototype directory, design_daubase, and dbCmd 
void Editor:;SetDirectory(chat* d, char* db. char* c) ( 
dir “ new char (MAXPATHLEN +1]; 
design_database « new char(strlen(db)]; 
ddbCmd = new char[strlen(c)]; 
strepy(dir,d); 
strcat(dir, 

strcpy(design_database,db); 

5trcpy(ddbCmd,c); 

) 

// HandleSelect lets the user pick a Selection if one's under the 
// mouse, otherwise it lets the user manipulate a rubber rectangle to 
// enclose the Selection he wants to pick. HandleSelect clears all 
// previous Selections unless the user holds down the shift key to 
// extend the Selections being made. 

void Editor::HandlcSelcct (Evcnt& e) | 

Selection* pick = drawing->PickSelectionInteisecting(e.x, e.y); 
if (!e.shift) ( // replacing previous Selections 
drawingview->£raseHandlesO: 
if (pick I” nil) ( 
drawing'>Select(pick); 

) else I 

RubberRect* tubberrect = 

new RubberRect(nil, nil, e.x, e.y, e.a, e.y); 

drawingview->Manipulate(e, rubberrect, UpEvent, false); 

Coord I, b, r, t; 

rubberrect->GetCurTent(l, b, r, t); 
delete robberrect; 

SelectionList* picklists drawing->PickSelectionsWithin(l, b, r, t); 

diawing->Sclcct(picklist); 

delete picklist; 

1 

1 else I // extending Selections 
if (pick 1“ nil) { 

drawingview->ErasePickcdHandlcs(pick); 

diawing->Extend(pick); 

I else I 



RubberRect* robberrect = 

new RubberRect(nil, nil, e.x, e.y, e.x, e.y); 

drawingview->Manipulate(e, robberrect, UpEvent, false); 

Coord 1, b, r, t; 

robberrect->GetCuiTent(l, b, r, t); 
delete robberrect; 

SelectionList* picklist= drawing->PickSelectionsWithm(l, b, r, t); 
drawingview->ErasePickedHandles(picklist); 
drawing->Extend(picklist); 
delete picklist; 

I 

I 

drawingview->DtawHandles(); 

) 

// HandleMove lets the user manipulate a sliding rectangle enclosing 
// the Selections and moves them the same way when the user releases 
// the button. 

void EditortJlandleMove (Evcnt& e) { 

Selection* pick » drawing->PickSeIectionIntersecting(e.x, e.y); 
if (pick I-nil) ( 

drawingvicw->ErascUngraspedHandles(pick); 

dtawing->G rasp (pick); 
dtawingview->DtawHandles(); 

Coord I, b, r, t; 
dtawing->GetBox(l, b, r, t); 
state->Constrain(e.x, e.y); 

SlidingRect* slidingrect = 
new SIidingRect(nil, nil, I, b, r, t, e.x, e.y); 
dfawingview->Manipulate(e, slidingrect, UpEvent); 

Coord nl, nb, nr, nt; 
slidingrect->GetCutTent(nl, nb, nr, nt); 
delete slidingrect; 

if(nl !-lllnb!=b)( 
float xO, yO, xl,yl; 

Transformer t; 
drawing->GetPictuieTT(t); 

UnvTransform(floatQ), float(b), xO, yO); 
tInvTransform(float(nl), float(nb), xl, yl): 

Do(new MoveChange(drawing, drawingview, xl - xO, yl - yO)); 

) 

1 

) 

// HandleScale lets the user manipulate a scaling rectangle enclosing 
// the picked Selection and scales the Selections to the new scale 
// when the user releases the button. 

void Editor JfandleScale (Eventdt e) { 

Selection* pick « drawing->PickSelectionIntetBecting(e.x, e.y); 
if (pick 1= nil) ( 

drawingview->ErascUngraspedHandics(pick); 

drawing->Gtasp(pick); 

drawingview->DrawHandles(); 

float I, b, r, t; 

pick->GetBounds(l, b, r, t); 
float cx, cy; 

pick->GetCentcr(cx, cy); 

ScalingRect* scalingrect - 

new ScalingRect(nil, nil, roundO), tDund(b), round(r), round(t), 
round(cx), round(cy)); 

drawingview->Manipulate(c, scalingrect, UpEvent); 
float scale * scalingrect->CurrcntScalingO: 
delete scalingrect; 

if (scale !> 0) | 

Do(new ScaleChange(drawing, drawingview, scale, scale)); 

I 


// HandleModify Irts the user modify an already existing Selection 
H and r^laccs the Selection with the modified SelectiorL Text 
// Selections "modify” themselves using different code below. 

void £ditor::Handleh^dify (Event& e) { 

Selection* pick * drawing->PickSclectionShapcdBy(c.x, c.y); 
if (pick !=nil) | 
drawingview->EraseHandlesO; 
dfawing->Selcct(pick); 
drawingvicw->DrawHandlesO; 

Selection* modi fiedpick « nil; 

Classld cid ^ pick->^etClassIdO; 

if (cid LABEL.OP II cid LABEL.DF II cid — COMMENT II 
cid — LAT_DF II cid MET_OP 11 cid LABEL_SL) { 
int ten; 

const char* text * ((TextSelcction*) pick>‘>GetOriginal(lcn); 
TextEdit* tcxiedit * new TextBdit(text, len); 
drawingview->EraseHandlesO; 
drawingview->Edil(c, textedit« pick); 
text = tcxtcdit->GetTextOen); 

modifiec^ick * new TextSelection(cid, text, loi, pick); 
delete textedit; 

I 

else { 

Rubbciband* shape * pick->CrcatcShapc{c.x. e.y): 
drawingview->K^ipulate(e, shape, UpEvent); 
modifiet^ick * pick->GctReshapedCopyO; 

I 

if (modifiedpick) { 

Do(new ReplaceChangcfdrawing. drawingvicw. pick, inodifiec^ick)); 
drawingvicw->DrawO; 

I 

) 

I 

// HandleMagnify lets the user manipulate a rubber rectangle and 
// expands the given area to fill the view. 

void EditondHandlcMagnify (EvcntA e) ( 

RubberRect* rubbcrrect * NewRubberRcctOrSquare(e); 
dfawingyicw->Manipulate(e, rufc^irect, UpEvent, false); 

Coord fx, fy; 

nibbcrTcct->GctCurrent(fx, fy. c.x, c,y); 
delete lubberrect; 


drawingvicw->Magnify(fx, fy, c.x, e.y); 


// HandleDecompose gives the user of decomposition types and then 
// processes the choice 

void Editor: JUndlcDcoompose(Evcnt& e) { 

Selection* pick ■ drawing->PickScicctionIntcrsecting(c.x, e.y); 
drawingview->EraseHandles(); 
if (pick I* nil && pick->GelCIassId() LABEL_OP) 
pick = pick->GetOwnerO*>GctShapc(): 
if (pick != nil && pick->GetQassIdO “ OPERATOR) ( 
drawing->Sclect(pick); 
drawingvicw->DrawHandlcsO; 

char* label pidc->GctOwne^O->Get^feIidLabclSt^ingO: 
if (label *>» nil) ( 
nolabeldialog*>Di^lay(); 

) else { 

char result * decomp<w5edialog->ChooseO; 

//Quit if cancel 

if (result»'c*) return; 

inter->SetCursor(houiglass); 

SavcO; 

// Construct the child component name 

const char* prototypc_namc ■ 8tatc->Gctr>TawingNameO; 
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char* fixed_label = RcmovcBadCharsOabcl); 

char* ncw_pfDt_namc « new char[strlcn(proiotype_name) 

+ strlen(fixcd_label) + 2]; 
strcpy(ncw_prot_name,prototypc_namc); 

strcat(ncw_p!t)t_name, 

strcat(new_4)rot_namc4ixed_label); 

charcmd[2S6]; 

chardpopts[128]: 

sprintf(dpopts/'-d %s -p 9E»s’‘»dir, new_prot_name); 

int code; 
long status; 

if (result ■= *f) { 

// first button pushed, decompose with graphic editor 
if(forkO-«0){ 

if (design_database[0] Is NULL) 
code * execlpC'a.out”, "a.out", 

“-d", dir, "-p", new__prot_name, 

"-c", ddbCmd, "-n", dcsign_databasc, 

''-geometry”, ”4450-200'', 0); 
else 

code B execlpC'a.out”, "a.out”, 

"•d”, dir, ncw_prot_iiame, 

"-c”, ddbCmd, 

"-geometry", "4450-200”, 0); 
exit(code); 

I 

wait(&status): 

drawing->TagOpcrator((Vcrtcx *)pick->GctOwner0t’'*“); 

SaveO; 

I else I 

// fprintf(stdefT, "second or third button choscn.Nn"); 

// write PSDL IMP file: implementation is Ada 


char* filename * new char(strlen(dir) 4 strlcn(new^rot_name) 
4lMP_EXT_LEN4l]: 
strepy (fi ]ename,dir); 
strcat(filename4iew_prot_name); 
strcat(filcnamc4MP_PSDL_E3Cr): 

FILE* fptr « fopen(filename, "w"); 
fprintf(fptr, "%s%sNn”, IMP_ADA_TKN, label); 
fprintff^tr, "%s", END_TKN); 
fclose(^tr): 
delete [j filename; 

if (result *»= 's') | 

// sUrt Ada synux editor 

filename b new char(strien(dir) 4 strlen(new j>rot_name) 4 3J; 

strcpy(filename,dir); 

strcat(filcname4»ew_protjnamc); 

strcat(filaiame,”,a"); 

if (!drawing->Exists(fi)ename)) { 

// file does not exist so create new template 
FILE* fptrB fopcn(filcname, "w"); 
drawing->GenerateAda(fptr,(Veitcx •)pick->GetOwner0); 
fclose(fptr); 

) 

delete [] filename; 

sprintf(cmd,”ada_syntax_editor.script %s”,dpopts); 
int code b system(cmd); 

1 else ( 

//search for reusable components 
sprintf(cmd,''software_ba».script %s",dpopts); 
int code b system(cmd); 


delete new_prot_namc; 
inter->SetCursor(defaultCursor); 
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) 


} 

I 

// HandleTeit lets the user type some text and creates a new 
H TextSelection when the user finishes typing the text It must 
// clear the selection list because Drawing View will redraw the 
// handles obscured by the TextEdit if the list's not empty. 

void Editor::HandleText (Event& e) { 
dtawingview->EraseHandles(); 
drawing->Cleat(); 

TextEdit* textedrt = new TextEdit; 
drawingview->Edit(e, textedit); 
int len; 

const char* text = textedit->GetText(len); 
ifOen>0)| 

TextSelection *ts = new TextSelectionfCOMMENT, text 
lett state->GetTextGS()); 
dtawing->CommentAppend(ts); 
dtawing->Select(ts); 

Do(new AddChangefdrawing, drawingview)); 

) 

delete textedit; 

1 

H HandleLabel lets the user pick a Selection and adds text in that selection. 
// The text will then be centered on the selection. 

void Editor: JlandlcLabel (Event& e) | 

Selection* pick « dtawing->PickSelectiottIntetsecting(e.x, e.y); 
drawingview->EraseHandlesO; 

if(pick) { 

Classld cid_pick •= pick->GetQassIdO; 

if (!((cid_pick — OPERATOR) II (cid_pick — TERMINATOR) II 

(cid_pick —= DATAFLOW_SPUNE) II (cid_pick -= SELFLOOP))) 
return; 

drawing->Select(pick); 

drawingview->DrawHandlesO; 

// can only add label to one selection at a time 

if (drawing->GetNumberOfGtaphics() * 1) ( 

TextEdit* textedit - new TextEdit; 
drawingview->Edit(e, textedit); 
char *text«textedit->GetStringO; 
if (sttien(text) > 0) ( 

// determine the type of label that we are using 

Classld cid_text; 

TextSelection *lat - 0; 

if (cidjrick — OPERATOR II cid_pick — TERMINATOR) 
cid_text - LABEL_OP; 
else if (cid_pick DATAFLOW_SPLINE) { 
cid_text * LABEL_DF; 

lat = ((Edge *) pick->GetOwner0)->GetLatency(); 

I 

else if (cid_pick ■= SELFLOOP) 
cid_text •sLABEL_SL; 

TextSelection* ts = new TextSelection(cid_text, text, strlen(text), 
state->GetTextGS()); 

// add label to operator list 

pick->GetOwner()->SetLabel(ts); 

dtawing->Select(ts); 

Do(new AddChange(dtawing, drawingview)); 

// center label to selection 
dtawing->Select(pick); 
drawing->Extend(ts); 

AlignCentersQ; 

if (lat) I 

rlrawing->Sclcct(ts); 
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drawing->ExtendOat); 

AiignCentersO; 

AlignTopToBottomO; 

I 

drBwingview->EraseHandles(); 

drawing->Qcar(); 

I 

delete textedit; 

I 


// HandleMHT letes the user select an operator, add the maximum execution 
// time associated with that operator. This MET is place on top of the 
// operator. 

void Bditor::Hand]eMET (Event& e, char *units ) { 

Selection* pick » drawing->PickSe}ectionlnteisecting(e.x, e.y); 

drawingview->EraseHandIesO; 

if (pick !=nil) | 

if (pick->GetCIassId() — LABEL.OP) 
pick « pick>>GetC)wner()->GetShapeO; 

// can only add the MET to an operator 

if (pick>>GetClassIdO OPERATOR) { 
drawing>>Select(pick); 
drawingview>>DTawHandlesO; 

TextEdit* textedit« new Text^it; 
drawingview->Edit(e, textedit); 
char *orig e textedit'>GetStringO; 
if (striai(orig) > 0) { 

char *text s new char[strlen(orig) + strlen(units) + 2]; 

strcpy(text,orig); 

strcat (text, units); 

TextSelection* ts « new TextSeIcction(MET_OP, text, strlen(text), 

state->GctTextGSO); 

// add MET to operator list 

((Operator •) pick->GetOwncr0)“>SctMET(ts); 
drawing->Select(ts); 

Do(new AddChange(drawing, drawingview)); 

// place MET on top of operator 
drawing'>Select(pick); 
drawing->ExteQd(ts); 

AiignCentersO; 

AlignBottomToTopO: 

diawingview->EraseHandles(); 

drawing'>OeaK); 

I 

delete textedit; 


I 

I 

// Adding the TRIGGER IF condition. 

// 

void Editon'JIancUelf (Event& e) ( 

Selection* pick » drawing->PickSelectionInteisecting(e.x, e.y): 
drawingview>>EraseHandlesO; 

if (pick Ik nil) { 

if (pick->GetClassId()« LABEL_OP) 
pick K pick«>GetOwnCT()>>GetShape(); 

// can only add the Trigger.If to an constraints 

if (pick->GetClassldO ** OPERATOR) { 
drawing'>Selec^idk); 
drawingview<>DrawHandles(); 

TextEdit* textedit» new TextEdit; 
drawingview->Edit(e, textedit); 
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char *tcxt * tcxtcdit->GctString(); 


if (strien(tcxt) >0) { 

TcxtSclcction* ts * new TextSclection(TRIG_IF_CONS, text, strlcn(tcxt), 
stat©->GctTcxtGSO): 

// add TRIGGER_IF to constraints list 

drawing->TriggcrAppcnd(ts, (EllipscSclection*) pick); 
drawing->Selcct(ts); 

Do(new AddChangc(dfawing, drawingview)); 


// place trigger condition on bottom of operator 
drawing‘>Select(pick); 
drawing'>Extend(ts); 

AlignCenteisO; 

AlignTopToBottomO; 

diawingview->EraseHandIcs(); 

drawing->Clear(); 


} 

delete textedit; 

I 

I 

) 


// HandleLatency letes the user select a data flow, add the latency 
// associated with that data flow. This latency is placed on top of the 
// data flow. 

void Editor: JlandlcLatcncy (Evenl& e, diar * units ) { 

Selection^ pick * drawmg->PickSelcctionIntcisecting(c.x, c.y); 

drawingview->EraseHandlesO; 

if (pick !=nil) | 

if (pick->GciClassIdO LABELJDF) 
pick » pidc->GctOwncrO*>GctShapc(): 

// can only add the Latency to stream 

if (pick.>GctClassIdO DATAFLOW.SPUNE) | 

Selection *ol(^ick « pick; 

Selection *1 ■ pick“>GetOwncK>*>GctLabc!(): 
pick «1 ? 1: pick; 
drawing’>Select(ol(^ick); 
dfawingvicw->DrawHandlcsO; 

TextEdit* textedit ■ new TextEdit; 
drawingvieW'>Edit(e, textedit); 
char •orig * textedil->GetStfingOl 
if (strico(orig) > 0) { 

char ♦text« new char(strl«i(orig) + strlen(units) + 2); 

8trcpy(text,orig); 

streat (text, units); 

TextSelection* ts * new TextSclcction(LAT_DF, text, strlcn(text), 
stat©->GetTextGSO); 

// add latency to operator list 

((Edge *) pick->GctOwncrO)->SetLatency(ts); 
diawing->Select(ts); 

Do(new AddChange(drawing, drawingyiew)); 

// place Latency on top of data flow 
drawing->SeIect(pick); 
diawing->Exteod(ts): 

AlignCentcrsO; 
if (pick !« oldpick) 

AlignTopToBottomO; 

drawingview->EraseHandlcsO; 

drawing->QearO; 

I 

del^ textedit; 

I 

} 
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} 


// HandleBSplinc lets the user draw a series of connected lines and 
// creates a BSplincSelection when the user presses the middle button. 

void Editor:*HandlcBSpline (Evcnt& c) { 

Coord* x; 

Coord* y; 
intn; 

drawingview>>£raseHandles(); 

InputVerticcs(e, x. y» n); 

if(n!^2llxl0]!=x[l]ll ylO] l-yll]){ 

// determine which operators the ^line is attached to and recompute 
// the spline's endpoints to be the intersection of the operator and 
// the spline 

Vertex* esO; 

Vertex* esn; 

esO « drawing->SetEndptsInC)perator(x[0],y[0],x[l],y[l]), 

esn » drawing->SetEndptsInC^crator(x[n-l],y[n-l],x[n-2],y[n-2]), 

if (esO != nil II esn I«nil) 1 

// detemaine type of spline 

IBrush *oldBTUsh - state->GelBnsshO; 

MapIBrash *mb * state->GctMapIBrushO: 

if (esO Ks esn) 

state>>SetB rush(mb->FindOrAppend(0,0xffH‘,l ,0,1)); 

// use the arrowhead's pattern to draw the line 

IPattem* tonp ■ state->GetPattcmO: 
statc->SctPattem(stat^>GctAnowPattemO); 

BSplincSelection* ss « 

new BSplincSelection(x, y. n, state->GetGraphicGSO); 

// append the spline to the operator list 

drawiDg->DataRowSplincAppcnd(ss, esO, esn); 
drawing">Select(ss); 

// reset the pattern to be the original pattern 

sUte>>SetBrush(oldBrush); 

sUte’>SetPattera(temp); 

Do(ncw AddChange(drawing. drawingyiew)); 
drawingvicw->Era$cHandlcsO; 


// HandleEllipsc draws a circle with a radius of 35 pixels at the position 
// of the user's mouse when he clicks the left mouse button 
// Changed 2/6/91 
//By Patrick D. Barnes 

// Description: Hxed bug where size of operator is not adjusted for 
// Zoom. 


void Editor: JlandlcElHpse (Event& e) | 
float aOO, aOl, alO, scale, a20, a21; 
int radius; 

Trarxsformcr t; 
drawing->GetPictureTr(t); 
l.GctEnlries(aOO. aOl, alO, scale, a20, a21); 
radius - (int) ((float) OperatorRadius * scale); 

drawingviewo>£raseHandle$0; 
6tate‘>Con8train(e.x, e.y); 

EllipseSelection* cs » 
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new EllipscSelcction(c.x, e.y^ radius, radius, 
state->GetGraLphicGS()); 
drawing->ScIect(cs); 
drawing->C)peratorAppend(es); 

Do(new AddChange(drawing, drawingview)); 

I 


// HandleRect draws a square with a side of 35 pixels at the position 
// of the user's mouse when he clicks the left mouse button 
// Changed 11/7/94 
//By C.S£agle 

// Description: Created function 

void Editor: JIandleRcct (Event& e) 1 
float aOO, aOl, alO, scale, a20, a21; 
int offset; 

Transformer t; 
drawing->GetPictureTT(t); 

LGetEntriesfaOO, aOl, alO, scale, a20, a21); 
offset •= (int) ((float) OperatorRadius • scale); 

drawingview->Era6eHandlcsO; 
state->Constrain(e,x, e,y); 

RectSelection* rs = 

new RectSelection(e,x-of(set, e.y-offset, e,x-K)ff6et, e.yfoffset, 
stat6->GetGraphicGS0); 
drawing->Select(rs); 
drawing->OperatorAppend(rs); 

Do(new AddChange(drawing, drawingview)); 

I 


// New offers to write an unsaved drawing and creates a new empty 
// drawing if the save succeeds or the user refuses the offer, 

void Editor: J4ew 0 { 
boolean successful OfferToSaveO; 
if (successful) | 
drawing->QearPictuteO: 

Reset(nil); 

I 

) 


// Revert rereads the drawing from its file. It asks for confirmation 
// before reverting an unsaved drawing. 

void Editor::Revert () | 

const char* prototype_name »■ sUt6->GetDrawingNameO; 
if (prototype_name l» nil) ( 
char response *= revertdialog->Confirm(); 
if (response = 'y') I 

const char* filename = MakeRlename(prototype_name); 
drawing->ReadDFDFile5(dir, prototype.name); 
Reset{ptototype_name); 

/* ) 
else { 

savecupdialog-> 

SetWamingCcouldnl revert! (file nonexistent?)"); 

OpenO; 

)•/ 

I 

I 

I 


// Open reads a drawing from a file whose filename is created by the given 
II prototype name. If it fails, it calls the interactive Open to ask the 
// user to type another name. 

// Modified: 10/19/94 by C.S.Eagle 
// to conform to new .graph foimat 

void Editor::Open (const char* prototype_name) { 
drawing->ClcarPicnireO: 

drawing->ReadDFDFiles(dir, prototype_name); 

const char* spec_filename - MakeSpecRlename(prototype_name); 

Reset(prototype_name); 
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I 


// Open prompts for a prototype name. It then appends ".gr^h“ to that 
// name to make the proper file name and reads a drawing from that file. 
// It offers to save an unsaved drawing and it keeps trying to read a 
// drawing until it succeeds or the user cancels the command 

void Editor::Opcn 0 i 
if (OfferToSavcO) ( 
drawing->ClcaiPicture(); 
const char* prototypc^namc « nil; 
char* prototypc_arTay[MAXPROTOTYPES]; 
find_prototype_namcs(prototypc_anay, dir, "edit"); 

opendialog>>GeaK); 

opcndialog“>Inscrt(prototypc_arTay); 
for(;;) { 

prototypejname * opendialog->Select(); 
if (prototype_name »* nil) 
break; 
else { 

drawing->ReadDn)Filcs(dir, prototype_name); 
const char* spcc_filename« 

MakeSpccHlcname(prototypc_namc); 

Resct(prototype_name); 

break; 


I 

I 

I 

// Save writes the drawing to the file it was read from unless there's 
// no file or it cant write the drawing to that file, in which case 
// it hands the job off to SaveAs. 

//Change: 1/29/92 
// Author: Pat Barnes 
// Description: Disable SaveAs 

void Editor::Save 0 ( 

const char* prototype_name • state">GetDniwmgNamcO; 
if (prototypejname = nil) | 
if (statc->GetModifStatus() Modified) 

SaveAsQ; 

I 

else if (state->GctModifStatus()«« ReadOnly) i 
saveasdialog->SetErrorTitle("Cant save in read-only file!"); 
SaveAsO; 

I 

else ( 

const char* filename * MakcRlenamc(prototypc_name); 
boolean successful * drawing->WritePicturc(filcnamc, state); 
if (successful) ( 

8tate->SetModifStatus(Unmodified); 

state->UpdateViewsO; 

drawing->WritcDFDFilcs(dir,prototypc_namc); 

) 

else 

savcasdialog->SetEnor’Iitlc(Xouldnt save!"); 

1 

1 

//Change: 1/29/92 
// Author: Pat Barnes 

// Description: Commit calls save to save the files, then calls the 
// Caps 92 UI DatabaseManager function 'Baecute" to load the 
// subtree into the database. Note: to maintain consistency, 

II the assumption is that any diange affects all the children 
// in the operator subtree decomposition. 

void Editor: :Commit () { 
int code; 
long status; 

char prototypc_name(256]; 

const char* object^name ■ state->GetDrawingNameO; 
if {object_namc 1* nil) { 

SaveO; 
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if (dcsign_databasc[0] ^ NULL) { 
fprintf(stdcrr, "Error: Cannot commit, database name not set.Nn"); 
return; 

I 

strcpy(prototype_namc, object_name); 
strtok(prolotype_namc," .NnV)"); 
inter->SetCursor(hourglass); 
if(fork()-=0){ 

code * execlp("dcsign_databasc", 

ddbCmd, 

design.database, 

"vaa", 

prototype_name, 
object_name, 0); 
exit(code); 

I 

I 


wait(&status); 

inter->SetCursor<defaultCursor); 

I 


// SaveAs prompts for a prototype name. It thm uses that name to 
// determine the file name and writes the drawing to that file* 

// It asks for confimiation before overwriting an already existing 
// file and it keeps trying to write the drawing until it succeeds or 
// the user cancels the command. 

void £ditor::SaveAs 0 1 
const char* prototype_namc « nil; 
char* prototypc_anay(MAXPROTOTYPES]; 
for(;;)| 

find_prototype_names(pfototype_array, dir, "edit"); 

save^ialog->ClearO; 

saveasdiaiog*>lnsert(prototype_arTay); 
prototype.name •> 8aveasdialog>>Select0; 
if (prototype_name nil) 
break; 
else ( 

charfilenamc[l28]; 

strcpy(hlename,prototype_name); 

5trcat(filenamc43FD_EXT); 
if (<irawing->Exists(hlename)) { 

overwritedialog->SelWaming(‘'a drawing named ", prototypc_namc); 
char response « overwritedialog->ConiirmO; 
if (response I» 'yT 
break; 

I 

const char* drawhlename « MakeInlename(pn)totype_name); 
boolean successful ■* drawing'>WritePicture(drawfilename, state); 
if (successful) ( 

siate->SetDrawingName(prototypc_name); 

state'>SetModifStatus(Uiimodified); 

8tate'>UpdateViews(); 

drawing->WritcDFDRles(dir.prototypc_name); 

break; 

1 

else 

savcasdialog->SetETTorTitle("Couldn'l savel"); 

1 

I 

savcasdialog->SctEnor'Iltler"); 

I 

// Print prompts for a print command and writes the drawing through a 
// pipe to that command's standard input It keeps trying to print 
// the drawing until it succeeds or the user cancels the command. 

void Editon*Print Q { 

if (state->GetModifStatusO Modified) { 

savecurdialog->SctWamingC'a iHoken pipe signal won't be caught"); 

) 

boolean successhil» OfferToSaveO; 
if (successful) { 
char* cmd « nil; 
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for(;;){ 
delete cmd; 

cmd s printdialog>>£dit(niI); 

if (cmd cs nil) { 

break; 

1 

boolean successful = drawing->PrintPicture(cmd, state); 

if (successful) { 

break; 

) else ( 

printdialog->SetWamingC'couldn’i execute ", cmd); 

I 


delete cmd; 

I 

I 


// Skew comments/code ratio to work around cpp bug 


// Quit offers to save an unsaved drawing and tells Idraw to quit 
// running if the save succeeds or the user refuses the offer. 

//Modified 2/3/92 

// by Patrick D. Barnes 

// Description: Change quit to always save 

void Editor::Quit (Event* e) ( 

//boolean successful ■ OfferToSaveQ; 

/Af (successful) { 

SaveO; 

if (state->GetModifStatus()» Unmodified) { 
e.target a nil; 

) 

} 

// Checkpoint writes an unsaved drawing to a temporary filename. The 
// program currently calls Checkpoint only when an X error occurs. 

void Editor::Checkpoint Q { 

I* extern char* tcmpnam(char*. char*); */ 

if (5tate>>GetModifStatusO ** Modified) { 

/• char* path «tempnamC'/'. "idraw"); •/ 
char* path * tmpnamC'-/idraw"); 
boolean successful« dtawing>>WritePicture(path, state); 
if (successful) { 

^rintf(stderr, "saved drawing as \"%sW", path); 

I else ( 

fjprintffstderr, "sorry, couldn’t save drawing as \"9fcsVNn", path); 

) 

delete path; 

} else { 

fprintf(stdeiT, "drawing was unmodified, didn't save i^n"); 


1 

// Undo undoes the last change made to the drawing. Undo does nothing 
// if all stored changes have beoi undone. 

void Editor::Undo () { 
history->UndoO; 

I 

// Redo redoes the last undone change made to the drawing, i.e., it 
// undoes an Undo. Redo does nothing if it follows a Do. 

void Editor::Redo () { 
history->Redo(); 

} 

// Cut removes the Selections and writes them to the clipboard file, 

// overwriting whatever was there previously. 
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void Editor: :Cut 0 I 

Do(ncw CutChangc(drawing, drawingvicw)); 

I 

// Copy copies the Selections and writes them to the clipboard file. 
// overwriting whatever was there previously. 

void Editor::Copy 0 I 

Do(ncw CopyChange(drawing, drawingview)); 

I 


// Paste reads new Selections from the clipboard file and appends them 
// to the drawing. 

void Editor: J’aste 0 { 

Do(ncw PastcChange(drawing» drawingview, state)); 

I 

// Duplicate di^licates the Selections and appends the new Selections 
// to ^e drawing. 

void Editor: J>uplicate () { 

Do(new DuplicateChange(drawing, drawingview)); 


// Delete deletes al) of the Selections, 
void Editor: J)elete Q { 

Do(new De)eteChange(drawing, drawingview)); 

I 


// SelectAll selects all of the Selections in the drawing. 

void EditQr::SelectAll 0 { 
drawing->SclcctA110: 
drawingview->DrawHandlesO; 

I 


// SetBrush sets the Selections' brush and updates the views to 
// display the new current brush. 

void Editor::SetBiush (IBrush* brush) | 
state->SetBrush(biush); 
statc->UpdatcViews(); 

Do(new SetBrushChange(drawing, drawingview, brush)); 

I 

// Skew comments/code ratio to work around cpp bug 


// SetFgCoIor sets the Selections' foreground color and updates the 
// views to display the new current foreground color. 

void Editor;:SctFgColor (IColor* fg) ( 
statc->SctFgColor(fg); 
swie->UpdateViewsO; 

Do(new SctFgColoiChangc(drawing. drawingview, fg)); 

I 

// SetBgColor sets the Selections' background color and updates the 
// views to display the new current badtground color. 

void Editor.iSetBgColor (IColor* bg) { 
statc->SctBgColor(bg); 
state->Updatc\^ewsO; 

Do(new SetBgColorChangefdrawing, drawingview, bg)); 

1 


// SetFont sets the Selections' font and updates the views to display 
// the new current font. 

void EdiiorrSctFont (IFont* font) { 











slate->SetFont(font): 
state->UpdateViewsO; 

Do(new SetFontChange(drawing, drawingview. font)); 

) 

// SetPattem sets the Selections' pattem and updates the views to 
// display the new cuirent pattem. 

void Editor::SetPattem (IPattem* pattem) | 
state->SetPattem(pattem); 
state->XJpdateViews(); 

Do(new SetPattemChange(drawing, drawingview, pattern)); 

1 


// AlignLeftSides aligns the rest of the Selections's left sides with 
// the fttst Selection's left side. 

void EditonAlignLeftSides 0 ( 

Do(new AlignChangefdrawing, drawingview. Left, Left)); 

) 

// AlignRightSides aligns the rest of the Selections' right sides with 
// the fiist Selection's right side. 

void Editor::AlignRightSides () | 

Do(new AlignChange(drawing, drawingview, Ri^t, Right)); 

) 


// AlignBottomSides aligns the rest of the Selections' bottom sides 
// with the first Selection's bottom side. 

void £ditor::Alignfiottoms 0 I 

Do(new AlignChange(drawing, drawingview. Bottom, Bottom)); 

1 


// AlignTopSides aligns the rest of the Selections’ top sides with the 
// fiist Selection's top side. 

voidEditor:;AlignTops() ( 

Doinew AlignChange(drawing, drawingview. Top, Top)); 

) 

// Align VeitCenteis aligns the rest of the Selections' vertical 
// centers with the first Selection's vertical center. 

void EditoniAlignVertCeoteis 0 1 

Do{new AlignChangefdrawing, drawingview, VertCenter, VertCenter)); 

1 


// AlignHorizCenteis aligns the rest of the Selections' horizontal 
// centers with the fiist Selection's horizontal center. 

void Editor::AlignHorizCenters 0 ( 

Do(new AlignChange(drawing, drawingview, HorizCenter, HorizCenter)); 

I 

// AlignCenters aligns the rest of the Selections' centers with the 
// first Selection's center. 

void EditoniAlignCenters () ( 

Do(new AlignChange(drawing, drawingview. Center, Center)); 

I 

// AlignLeftToRight aligns each Selection's left side with its 
// predecessor's ri^t side. 

void Editor; AlignLeftToRight 0 I 
Do(new AlignChange(drawing, drawingview. Right, left)); 

) 


// AlignRighfToLeft aligns each Selection's right side with its 
// predecessor's left side. 

void Editor; AlignRightToLeft () I 
Dofnew AlignChangefdrawing, drawingview. Left, Right)); 

1 
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// AlignBottomToTop aligns each Selection's bottom side with its 
// predecessor's top side. 

void Editor; :AlignBottomToTop () { 

Do(new AlignChange(dtawing, drawingview. Top, Bottom)); 

I 

// AlignTopToBottom aligns each Selection's top side with its 
// predecessor's bottom side. 

void Editor:*AlignTopToBottom 0 I 
Do(new AlignChange(dtawing, drawingview. Bottom, Top)); 

) 

// AlignToGrid abgns the Selections' lower left comets with the 
// closest grid point 

void EditontAlignToGrid 0 I 
Do(new AlignToGridChange(drawing, drawingview)); 

I 

// Reduce reduces the drawing's magnification by a factor of two. 

void Editor::Reduce 0 { 
drawingview->Reduce(); 

) 

// Enlarge enlarges the drawing's magnification by a factor of two. 


void Editor.£nlatge 0 I 
drawingview->Enlarge(); 

) 


// NotmalSize resets the drawing's magnification. 

void Editor J*iormalSizc () 1 
drawingvicw->NotmalSize(); 

I 

// ReduceToFit reduces the drawing's magnification enough to fit all 
// of the drawing in the window. 

void Editor::ReduceToFit () ( 
drawingview->ReduceToFitO; 

I 

// Cenietfage scrolls the drawing so its center coincidences with the 
// window's center. 

void Editor::CeoterPage 0 I 
drawingview->CenterPageO; 

I 

// RedrawPage redraws the drawing without moving the view. 

void Editor::RedrawPage () ( 
drawingview->DrawQ; 

1 

// GriddingOnOff toggles the grid's constraint on or off. 

void EditorKjriddingOnOff 0 { 
state->SetGridGravity(lstate->GetGridGravityO): 
8Ute->UpdateViewsO; 

I 

// GridVisibleInvisible toggles the grid's visibility on or off. 

void Editor:GridVisiWeInvisible 0 1 
state->SetGridVisibility(lstate->GetGridVisibilityO); 
drawingview->DrawO; 

I 


// GridSpacing prompts the user for the new grid spat^g in units of 
// points. If we didn't use points as units, the same grid spacing 



// would not be portable to differwit displays. 


void Editor::GridSpacing () { 
static char old5pacing[50]; 

sphntf(oldspacing, "9t>lg", state>>GetGrid$pacing()); 
char* spacing s nil; 
for(;;)| 
delete spacing; 

spacing « spacingdialog->£dit(oldspacing); 

if (spacing nil) { 

break; 

} 

float s * 0.; 

if (sscanf(spacing, &s) »= 1) | 
if(s>0.){ 

state->SetGridSpacing(s); 
if (statc->GctGridVisibility() true) { 
drawingvicw->Update(); 

} 

I 

break; 

) else I 

spacingdialog->$etWamingrcouldn't parse ", spacing); 

I 

I 

delete spacing; 

} 


// Orientation toggles the page between portrait and landscape 
// orientations. 

void £ditor::Orientation Q { 

state->ToggleOria)tation0; 

drawingview>>UpdateO; 

I 


// ShowVeision displays idraw's version level and author. 

void Editor::ShowVcrsion () { 
versiondialog->I>isplay(); 

i 

// Construct the filename from the given prototype name 

const char* Editor::MakeFilename(const char* name) ( 
char* filename = new char [strien(dir) + strlen(name) + GRAPH_EXT_LEN + 1]; 
strcpy(filename,dir); 

$trcat(fi ienameoiame): 
strcat(fllename,GRAF'H_EXT); 
return filename; 

} 


const char* £ditor::MakeSpecFiiename(const char* name) { 
char* flloiame b new char [strlen(dir) stiien(name) * 
SPEC_EXT_LEN+1]; 
strcpy(filename,dir); 
strcat(fl lenamejiame); 
strcat(fi letumie3PEC_PSDL_EXT): 
return filename; 

1 

// Do performs a change to the drawing and updates the drawing's 
// mo^fleation status if it was unmodified. 

void Editor: Do (QrangeNode* changoiode) { 
switch (state‘>GetModifStatusO) { 
case Unmodified: 
hisiory*>Do(changenode); 
state->SetModifStatus(Modifled); 
state'>UpdateViewsO; 

break; 

default: 

history*>Do(changeoode); 

break: 

I 

I 
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// InputVeiticcs lets the user keep drawing a series of connected 
// lines until the usct presses a button other than the left button. 

// It returns the vertices inputted by the user. 

void Editor:JnputVciticcs (Evcnt& c, Coord*& xrrt, Coord*& yret, int& nrct) ( 
const int INTTIALSIZE « 100; 
static int sizebuffers « 0; 
static RubberLinc** robbcrlines *ml; 
static Coord* x »nil; 
static Coord* y » nil; 
if (INTTIALSIZE > sizebuffers) { 
sizebuffers = INTTIALSIZE; 
rubbeiiines « new RubberLine*[sizebuffer8]; 

X s new Coordfsizebun'eis]; 
y s new Coordfsizebuffeis]; 

} 


int n *0; 

state->Constrain(e.x, e.y); 
nibberlines[0] s nil; 
x[0] = e.x; 
y[0]-e.y; 

++n; 

while (e.button ■= LEFTMOUSE) ( 
njbberline8[n}« NewRubberLincOrAxis(e); 
e.evaitType » UpEvent; 

drawingvicw->Manipulatc(c, nibberiinesfn], DownEveot, true, false); 
Coord dummy; 

rubberlines[n]*>GetCurrent(dummy, dummy, e.x, e.y); 
x[n] s e.x; 
y[n] == e.y; 

++n; 


if (n ** sizebuffers) { 

RubberLine** oldrubberlines m rubberlines; 

Coord* oldx * x; 

Coord* oldy » y; 

sizebuffers +»INKYIAI *SIZE/2; 

rubberlines « new Rubberline*[sizebufteis]; 

X s new Coord[sizebuffers]; 
y « new Cooidtsizebuffers]; 

bcopy(oldrubberlines, rubberlines, n * sizeof(RubbeiLine*)); 

bcopy(oldx, x,n • sizeof(Coord)); 

bcopy(oldy, y, n • sizeof(Coord)); 

delete oldrubberiines; 

delete oldx; 

delete oldy; 

I 

I 


xrel*x; 
yret«y; 
nrct = n; 

for (int 1 *= 1; i < n; i++) { 
njbbcrlincs[i)->EraseO; 
delete tubberlines[i]; 

) 

) 


// NewRubberLincOrAxis creates and returns a new RubberLine or a new 
// RubberAxis depending on whether the shift key's being depressed. 

RubberLine* Editor J4ewRubbeiLineOrAxis (Event& e) { 
return (!e.shift ? 

new RubbetLine(nil. nil, e.x, e.y, e.x, e.y): 
new RubberAxis(nil, nil, e.x, e.y, e.x, e.y)); 

} 


// NewRubbeiEUipseOfCircle creates and returns a new RubberElHpse or 
// a new RubberCircie depending on the shift key's state. 

RubbcrEIlipsc* Editor’NewRubberEUipscOiCircle (Event& c) f 
return (!e.shift ? 

new RubbciEllipsc(nil, nil, e.x, e.y, c.x, c.y): 



new RubberCirclc(niI, nil, e.x, c.y, e.x, e.y)); 

1 

// Skew comments/code ratio to work around q)p bug 


// NcwRubberRectOrSquare creates and returns a new RubberRect or a new 
// RubberSquare depending on whether the shift key's being depressed. 

RubberRect* Editor:J^ewRubberRectOrSquarc (Evcnt& e) { 
return (le.shift ? 

new RubberRect(ml, nil, e.x, e.y, e.x, e.y): 
new RubbciSquarefnil, nil, c.x, e.y, c.x, e.y)); 

I 

// OfferToSave returns true if it saves an unsaved drawing or the user 
// refuses the offer or no changes need to be saved. 

boolean Editor::OffcrToSave 0 I 
boolean successful - false; 
if (state->GctModifStatus() == Modified) | 
char response * savecurdialog->ConfirmO; 
if (response — 'y') { 

Save(); 

if (statc->GctModifStatus() ssss Unmodified) { 
successful s true; 

I 

} else if (response = 'n') { 
successful = true; 

1 

} else { 

successful s tme; 

I 

return successful; 

1 

// Reset redraws the view, clears the history, and resets state 
// information about the drawing's name and its modification status. 

void Editor::Reset (const char* prototype^namc) { 
history*>Clcar(); 

staie->SctDfawingName(prototype_name); 

// if (prototype_name I® nil && Idrawing->Writable(filename)) { 

// state->SrtModifStatus(ReadOnly): 

// I 

// else { 

state->SetModifStatus(Uamodified); 

// I 

statc->UpdateViews(); 

drawingview->Update(); 

} 


// ResetMessage changes the editor's message block 

void £ditor::ResetMessage(const char* msg) { 
state->SetMessage(msg); 

stalc->UpdatcViewsO; 

I 

void Editor:;TooISct(char I) { 

Panelltem *t«tooIs->LookUp(l); 

t->SctMessage(); 

tools->SctCur(l); 

I 

errhandlerJi 


fifndef errhandler_h 
#define errhandlcr_h 

♦include <lnterViews/reqerrJi> 

// Declare imported types. 

class Editor, 
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// ErrHandler calls upon the Editor to save the current drawing if an 
// X request error occurs. 

class ErrHandler: public ReqErr { 
public: 

EnHandlcK): 

'“ErrHandlcrO: 

void SetEditor(Editor*); 
void Error(); 

protected: 

Editor* editor; // handles drawing and editing operations 


#endif 


errhandler.c 

#include "cditor.h" 

#include ’’errhandlenh" 

#includc <stdioii> 

#include <stdlibJi> 

// ErrHandler doesn't have an Editor yet 

EnHandlcr:£rrHandler 0 { 
editors nil; 

I 

ErrHandlcr:;-EnHandler 0 (I 

// SetEditor sets the Editor which ErrHandler calls upon. 

void ErrHandlertSetEditor (Editor* e) ( 
editor == e; 

} 


// Error prints the X error, checkpoints the current drawing, and 
// terminates the program's execution. 


void ErrHandler:Error () { 

fprintf(stdcrr, 'X Error: %s\n", message); 


fprintf(stdcrr," 
fprintf(stderr," 
fprintf(stdcrr," 
fprintf(stderr," 
if (editor != nil) ( 


Request code: request); 

Request function: %d\n'’, detail); 
Request window Ox%xNn", id); 
Error Serial #%dVn", msgid); 


editor->Chcckpoint(); 


const ini ERROR = 1; 
exit(ERROR); 

I 


highlightenh 

#ifndef highlightcr_h 
#define highlightcr_h 

#include <IntcrVicws/sccncii> 

// A HighlightcrParent creates a highlight painter for its interior 
// Highlighters to share. 

class HighlighlerParoit: public MonoScene { 
public: 

HighlighlerParoitO; 

-HighlighterParentO; 

boolean SameOutputAs(Painlcr*); 

Painter* GclHighIightPainter(): 
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protected: 


Painter* highlight; 


// stores painter to give interior Highlighters 


I; 

// A Highlighter draws itself and highlights or unhighlights itself on 
// command. 

class Highli^tcr: public Interactor { 
public; 

Highli^tcrO: 

-HighlighteK); 

void SctHighlighterParent(HighIighterParOTt*); 
void Highli^t(boolean on); 
protected: 
void ReconfigO; 

HighlightcrPaient* hparcnt;// gives us hi^light painter if it's nonnil 
boolean highli^tcd;// stores tme if we should be highlighted 

Painter* highli^t; // “s with reversed colors 

Painter* normal; //draws us with normal colors 


#cndif 


highlighter.c 

finclude "highli^ter.h" 

#include <InterVicws^aintcr.h> 

// HighlighterParent starts with no highlight painter. 

Highli^terParent::HighlighterParent 0 { 
hi^light B nil; 

} 


// Free storage allocated for the highlight painter. 

Highli^tcrParent::“HighIightcrParcnt 0 { 

Unref(highlight); 

1 

// SameOutputAs compares the given painter to our output painter so 
// our interior Highli^tcrs can decide if they can share our 
// highlight painter. 

boolean HighlightcrParcntrrSamcOutputAs (Painter* out) { 
return out ■*= ou^ut; 

1 

// GctHi^lightPaintcr creates our highlight painter if we don't have 
// one yet and returns it so all of our interior Highlighters can 
// share it as well as our ou^ut painter which they inherit 
// automatically. We can’t just create highlight in Reconfig because 
// our interior ffighlightcis execute their Reconfig before we do, so 
// we create it here (once) when they call us from their Reconfig. 

Painter* HighHghtcrParait::GctHighlightPaintcr 0 i 
if (highlight — nil) ( 

hi^Hght B new Painter(output); 
highlight->RcfercnccO; 

highlight->SetColois(output->GctBgColorO,output->GetFgColorO); 


return highlight; 

I 

// Highlighter starts off unhighlighted with no HighlighterParent yet. 
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Highlighter :Highlightcr 0 { 
hparcnt = nil; 
highlighted = false; 
hi^light» nil; 
normal - nil; 

1 

// Free storage allocated for the highlight painter. 

Highlighter :“Highlighter () | 
output ss normal; 

Unref (highlight); 

} 


// SetHighlighterParent gives us a HighlightcrParcnt. 

void HighlightcriSetHighlightcrParcnt (HighlighterParait* hp) ( 
hparent = hp; 

) 


// Highlight exchanges our painter and draws us unless we 
// don't have a canvas so a panel can highlight us before the panel’s 
// inserted and a mmu can unhighlight us after the menu’s rwnovcd 

void Highlightcr::Highlight (boolean on) { 
highlighted » on; 
output s on ? highli^t: normal; 
if (canvas 1^ nil) ( 

Rcdraw(0,0, xmax, ymax); 

} 

1 

// Rcconfig initializes our highlight painter if necessary by getting 
// it from our Highli^terParent if possible or else creating a new 
// painter. Then Reconfig switches to the appropriate painter. 

void Highlightcr::Rcconfig () { 

Intefactor::Reconfig(); 

if (output!« highlight && output!« normal) | 

Unref(highli^t); 

if (hparent!« nil && hparent->SameOutputAs(output)) { 
highlight» hpafent->GetHighlightPaintcrO; 
highlight‘>Reference(); 

} else { // bite the bullet 

highlight s= new Painter(output); 
hi^Iight->Reference(); 

highlight->SetColore(output->GctBgColorO. output->GctFgColor()); 

I 

normal = ou^ut; 

I 

output s highlighted ? hi^light: normal; 

I 


history .h 


#ifndef history_h 
#dcfinc history_h 

#include <InterViews/defsJi> 

// Declare inserted types. 

class ChangeNode; 
class ChangeList; 
class Interactor; 

// A History maintains a log of changes made to the drawing to permit 
// dianges to be undone. 

class History ( 
public: 

History (In teractor*); 

-HistoryO; 
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boolean IsEmptyO; 
void ClcarO; 
void Do(ChangcNode*); 
void Rcdo(); 
void UndoO; 

protected: 

int maxhistory; // maximum number of changes to store 

ChangeList* changelist;// stores changes to drawing 


#endif 


history.c 


#include "history-h" 

#include "istring.h" 

#include "Ustchange.h" 

#include <dnterViews/interactor,h> 

#include <Inter\^ews/Std/stdioJi> 

// History sets its maximum number of changes and creates the history. 

History::History (Interactor* i) | 
const char* def «i->GctAttribute('*history"); 
char* definition « strdup(dcf); // some sscanfs write to their format,., 
if (sscanf(definition, "%d‘', Amaxhistory) != 1) | 

maxhistory * 20; // default if we can’t parse definition 

fprintf(stdcrT, "can’t parse attribute for history,"); 
fprintffstderr, "value set to %dVn", maxhistory); 

} 

delete definition; 
changelist = new Changd^ist; 

I 


H -History frees storage allocated for the changes. 

History::-History 0 { 
delete changelist; 

} 

// IsEmpty returns true if there are no changes stored in the list. 

boolean History::IsEmpty () { 
return changelist->SizeO *= 0; 

) 


// Qear deletes all of the stored changes. Calling Gear prevents 
// dangling pointere from being referenced if the user tries to undo a 
// stored change that was made before a New, Revert, or Open command. 

void History::Clcar () { 
changclist->DclctcAll(); 

1 

// Do tmneates the history at its current point, trims the history to 
// its last maxhistory-1 changes, performs the change, appends the 
// change, and leaves the current point at the end of the history. 

void History:i)o (ChangeNode* changenode) { 
while (!changelist->AtEnd()) { 

changelist->DelcteCurO; 

I 

changeIist->First(); 

while (changelist->SizeO >= maxhistory) { 
changelist->DelcteCuK); 

1 

changenode‘>Do(); 

changelist->Append(changenode); 

changeIist->L^l(); 

changelist->NextO; 

I 


// Redo redoes a stored change in the history and steps over it unless 


155 


// the current point is already at the end of the history. 


void History::Redo 0 { 
if (!changelist->AtEndC)) { 

ChangeNode* changenode = changelist->GctCurO; 

changcnodc->Do(); 

changelist->Next(); 


// Undo st^s back in the history and undoes a stored change unless 
// the current point is already at the beginning of the history. 


void History::Undo () { 
changelist->Prcv (); 
if (!changelist->At^d()) | 

ChangeNode* changenode = changclist->GctCurO; 
changcnode->UndoO; 


} else ( 
1 


changeIist->Next(); 


idraw.h 


#ifiidef idraw_h 
#definc idraw_h 

#include <InterViews/sccnc.h> 

// Declare imported types. 

class Drawing; 
class Drawing View; 
class Editor, 
class EnHandler, 
class MapKey; 
class State; 
class Tools; 

// An Idraw displays a drawing editor. 

class Idraw : public MonoScene ( 
public: 

Idrawfint, char**); 

-IdrawO; 

void Run(); 

void Handle(Event&); 
void UpdatcQ; 

intwWidthO {returnxmax+l;| 
int wHeightQ {return ymax+1;} 

protected: 

void ParscArgsfint, char**); 
void InitQ; 

const char* initial_prot;// stores name of initial prototype to use if any 
char* dir; // stores name of directory of prototypes 
char*ddb; //stores name of desoign database 
char* ddbCmd; // stores name of command to load files to ddb 

Drawing* drawing; 

DrawingView* drawingview;//displays drawing 
Editor* editor, 

EnHandler* crrhandlcr; //handles an X request error 
MapKey* mapkey; 

State* state; 

Tools* tools; 

1; 


//performs operations on drawing 

//handles drawing and editing operations 

// maps characters to Interactors 
// stores current state info about drawing 
// displays drawing tools 
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#endif 


Idraw.c 


#includc "commandsii'' 

#include "drawing.h" 

#include "drawingviewJi" 

#include "editorJi" 

#include "errhandlcnh" 

#include "idraw.h" 

#include ’'istring.h" 

#include ‘'mapkey.h" 

#inc!ude "statcJi" 

#iiiiciude "statevicws.h" 

#include "tools.h" 

#include <InterViewsA3raphic^painth> 

#include <InterViews/bordcr.h> 

#include «dnterViews/box.h> 

#includc <InterViews/cursor.h> 

#include <IntcrVicws/evcnth> 

#include <InterVicws/frame.h> 

#include <InterVicws/glue.h> 

#include <IntcrViews^annerJi> 

#include <InterVicws^erspcctiveJi> 

#include <InterVicws/scnsorJi> 

#include <InterVicws/transformer.h> 

#include <IntcrVicwsArayJi> 

#include <InterVicwsyStd/os/fs.h> 

#inc)ude <sys/param.h> 

#inctude <InterViews/Std/stdioi\> 

#include <stnng.h> 

#include ^tdlib.h> 

// Idraw parses its command line and initializes its members. 

Idraw: Jdraw (int arge, diar** argv) { 

ParseArgs(argc. argv); 

InitPPaintQ; 

InitO; 

I 

// Free storage allocated for members not in Idraw's scene. 

Idraw::~Idraw () { 
f* delete drawing; 
delete din 
delete ddb; 
delete ddbCmd; 
delete initial_prot; 
delete editor, 
delete enhandler, 
delete mapkey; 
delete state; */ 

1 

// Run opens the initial hie if one was given before starting to run. 
void Idraw::Run () { 

// pass name of prototype directory to editor class 
// Changed 1/31/92 
// By Patrick d. Barnes 

// added database name and command to pass to editor. 

cditor->SetDirectory(dir, ddb, ddbCmd); 

if (initial_prot l=nil) { 

SetCursorfhourglass); 

cditor->Open(initial_prot); 

SctCursor(defaultCursor); 

I 

Intciactor::Run(); 

I 
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// Handle routes keystrokes to their associated interactois. 


void Idraw::Handle (Event& e) { 
switch (e.cvcntType) { 
case KcyEvcnt: 
if (e.lcn > 0) ( 

Interactor* i = mapkey->LookUp(cJceystring[0]); 
if (i !=ml) { 
i->Handlc(c); 

I 

} 

break; 

default: 

break; 

} 

1 

// Update gets the picture’s total Iranfonnation matrix whenever it 
// dianges and stores it in State for creating new graphics. 

void Idraw::Update () { 

Transformer t; 

drawing->GetPictureTT(t); 

statc->SetGraphicT(t); 

I 

// ParscArgs stores the name of an initial prototype and name of prototype 
// directory to use if any. 

//Changed: 1/31/92 
// By Patrick D. Barnes 

// Rewrote to add flags -c db command, and -n db name. 

void Idraw::ParseArgs (int arge, char** argv) { 
dir = nil; 
ddb = 

ddbCmd = "design_database"; 

initiaLprot = nil; 

for (int i=l;i < arge; i++) | 

//fprintf(stderr, "argument:%s; %cNn", argv[i], argv[i][0]); 
if(i>=argc II argv[i][0] !*='•') { 
fprintf(stderT, "erroneous argumcnt:%s\n", argv(i]); 

fprintffstderr, "usage: graphic_editor {[-p prototypejiame] [-n database_name]Vn‘‘); 
fprintf(stdepr," (-d prototype_dir] (-c database.cmd] )Nn"); 
const int PARSINGERROR = 1; 
exitCPARSINGERROR): 

} 

switch (argv[ij[l]) ( 
case ‘p’: 

initial_prot« aigv[++i]; 
break; 
case’d’: 

dir = argv[++ij; 
break; 
case ’c'; 

ddbCmd = argv[++i]; 
break; 
case 'n': 

ddb ss argv(++i]; 
break; 
default: 

fprintf(stderr, "erroneous argumcnt:%sNn", argv[i]); 

fprintf(stderr, "usage: graphic_edilor {(-p prototypc_name] (-n datobasc_name]\n"); 

fprintf(stdcrr, " [-d prototypc_dir] [-c databasc_cmdj INn"); 

exitfl); 

I 

I 

// set default dir 
if (dir = nil) { 

// use current directory to search for and save drawing files 

const int bufsize = MAXPATHLEN + 1; 
static char bufpoufsize]; 
getc wd (buf,bu fsize); 
dir*buf; 

I 
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} 


// Init creates a s«isor to catch keystrokes, creates m«nbers and 
// initializes links between them, and composes than into a view with 
// boxes, borders, glue, and frames. 

void Idraw::Init 0 { 
input ss new Sensor, 
input->Catch(KeyEvent); 

drawing - new Drawing(8.5*inches, ll*inches, 0.05*inch); 

drawingview * new DrawingView(drawing->GctPage()); 

editor = new Editor(this); 

cnhandler =* new EnHandler, 

mapkey ssnewMapKey; 

state * new Statefthis, drawing->GctPage()); 

tools * new Tools(editor, mapkey); 

// eagle change for Shing editor 
drawing->SetState(state); 
drawing->SetDrawingView(drawingview); 
drawing->SetIdraw(this); 

drawingview->GetPerspectivc()->Attach(this); 

drawingview->SetSelectionList(drawing->GetSelcctionList()); 

drawingview->SetState(statc); 

drawingview->SctTools(tools); 

cditor->SetDrawing(drawing); 

cditor->SetDrawingView(drawingview); 

editor->SetState(state); 

cditor->SctTools(tools); 

erThandler->SetEditor(editor); 

errtiandler->Install(); 

VBox* status =s new VBox( 
new HBox( 

new ModifStatusView(statc), 
new DrawingNameView(statc), 
new GriddingView(state), 
new FontView(state), 
new MagnifView(state, drawingview) 

). 

new HBorder 

); 


VBox* msgblock « new VBox( 
new HBox( 
newHGM10,10), 
new MsgVicw(statc) 

). 

new HBorder 

); 

HBox* indies = new HBox( 
new BnishView(state), 
new VBorder, 
new PatternView(state) 

): 

HBox* cmds *»ncwHBox( 

new Commands(editor, mapkey, state), 

// pad drawing area with 200 extra pixels 

ncwHGlue(200) 

); 

VBox* panel = new VBox( 
tools, 

new VGlue, 

new HBorder, 

new PanneKdrawingview) 

): 

panel->Propagate(false); 

HBorder* hborder» new HBorder, 
VBorder* vborder = new VBorder, 

Tray* t» new Tray, 
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t->HBox(t, status, t); 

t->HBox(t, msgblock, t); 

t->HBox(t, indies, vborder, cmds, t); 

t->HBox(t, hbordcr, t); 

t->HBox(t, panel, vborder, drawingyiew, t); 

t->VBox(t, status, msgblock, indies, hborder, panel, t); 

t->VBox(t, status, msgblock, vborder, t); 

t->VBox(t, status, msgblock, cmds, hborder, drawingview, t); 

Insert(new Frame{t, 1)); 

} 


iellipses.h 

#i£ndef iellipses_h 
#define iellipses_h 

#include «dhiterViews/Graphic/cllipses.h> 

// An IFillEIlipse knows when NOT to draw itself. 

class IFillEIlipse : public FilLEllipse { 
public; 

IFiilElIipse(Coord, Coord, int, int. Graphic* *= nil); 
protected: 

boolean contains(PointObj&, Graphic*); 
boolean intcrsects(BoxObj&, Graphic*); 
void draw(Canvas*, Graphic*); 


I; 


// An DFillCircle knows when NOT to draw itself. 

class IFillCircle; public FillCircle { 
public: 

IBllCirclc(Coord, Coord, int. Graphic* «nil); 
protected: 

boolean contams(PointObj&, Graphic*); 
boolean intereccts(BoxObj&, Graphic*); 
void draw(Canvas*, Graphic*); 


#endif 


ienipses.c 


fincludc "icllipscs.h" 

#include "ipainl-h" 

//IFillEIlipsepasses its arguments to FillEllipse. 

IHllEllipse::IFillEllipse (Coord xO, Coord yO, int rx, int ry. Graphic* gs) 
: (xO, yO, IX, ry, gs) { 

) 

// contains returns true if the IFillEIlipse contains the given point 
// unless the pattern is the "none" pattern. 

boolean IFillEllipse::contains (PointObj& po. Graphic* gs) { 
boolean contains * false; 

IPattem* pattern «(IPattem*) gs->GetPattemO; 
if (!pattem->NoncO) I 
contains «FillEllipsc::contains(po, gs); 

) 

return contains; 

I 


160 



// intersects returns true if the IFillEtlipse intersects the given 
// box unless the pattern is the "none" pattern. 

boolean IFilLEllipse::intersects (BoxObj& useib. Graphic* gs) { 
boolean intersects = false; 

IPattem* pattern = (IPattem*) gs->GetPattcm(): 
if (!pattem->None()) { 
inteisects = FillElIipse:nntersects(uscrb, gs); 

1 

return intersects; 

} 

// draw draws the IFillEllipse unless the pattern is the "none" pattern. 

void EFill£llipse::draw (Canvas* c, Graphic* gs) ( 

IPattem* pattern « (IPattem*) gs->GetPattcm(); 
if (!pattem->NoneO) { 

InllEllipse::draw(c, gs); 

} 

) 


// IFillCircle passes its argumoits to RllCircle. 

IKllCircle: JFillCircle (Coord xO, Coord yO, int r, Graphic* gs) 
: (xO, yO. r, gs) { 

I 


// contains returns true if the IFillCircle contains the given point 
// unless the pattern is the "none" pattern. 

boolean IFillCircle::contains (PointObj& po, Graphic* gs) { 
boolean contains » false; 

IPattem* pattern = (IPattem*) gs->GetPattem(); 
if (!pattem->Nonc()) { 
contains »FillCircle::contains(po, gs); 

I 

return contains; 

I 

// intersects returns true if the IFillCircle intersects the given box 
// unless the pattern is the "none" pattern. 

boolean IFillCircle:dntersects (BoxObj& useib, Graphic* gs) ( 
boolean intersects » false; 

IPattem* pattern =* (IPattem*) gs->GctPattem(); 
if (!pattem->None()) { 
intersects ^ FillCircle:dntersects(userb, gs); 

) 

return intersects; 

) 


// draw draws the IFillCircle unless the pattern is the "none" 
// pattern. 

void IRllCircle::draw (Canvas* c. Graphic* gs) { 

IPattem* pattern = (IPattem*) gs*>GctPattcm(); 

if (!pattem->NoncO) { 

RllCirclc::draw(c, gs); 

) 

I 


ilines.h 


#i6idef ilines_h 
#define iiines_h 

#include <InterVicws/Graphic/polygonsJi> 

// An IRllMultiline knows when NOT to draw itself. 

class IRllMultiLine: public FillPolygon { 
public; 

IRIIMultiLine(Coord*, Coord*, int. Graphic* * nil); 


protected: 

boolean contains(PointObj&, Graphic*); 
boolean intersects(BoxObj&» Graphic*); 
void draw(Canvas*, Graphic*); 


#endif 

ilines.c 

#includc "ilines.h" 

#include "ipainth" 

// IFillMultiLine passes its arguments to FillPolygon. 

IFiIIMuItiLinc::IFillMultiLine (Coord* x. Coord* y, int n. Graphic* gs) 

: (x, y, n, gs) { 

} 

// contains returns true if the IFillMultiLine contains the given point 
// unless the brush is an arrow or the pattern is the “none" pattern. 

boolean IFillMultiLine:;contains (PointObj& po, Graphic* ( 
boolean contains = false; 

IBmsh* brush = (IBrush*) gs->GetBnish(); 

IPattem* pattern = (IPattem*) gs->GetPattem(); 

if (!brush->LeftArTOw() && !brush->RightArrow() && !pattem->NoneO) { 
contains =FillPolygon::contains(po, gs); 

I 

return contains; 

} 


// intersects returns true if the IFillMultiLine intersects the given 
// box unless the brush is an arrow or the pattern is the "none" 

//pattern. 

boolean IFillMultiLine:nntersects (BoxObj& userb, Graphic* gs) { 
boolean intersects « false; 

IBrush* bnish = (IBrush*) gs->GetBfUsh(); 

IPattem* pattern = (IPattem*) gs->GetPattcm(); 

if (!bmsh->LcftArrow() && !brush->RightAiTow() && !pattem->None()) ( 
intersects = FillPolygon:nntersects(uscrb, gs); 

I 

return intersects; 


// draw draws the IFillMultiLine unless the brush is an arrow or the 
// pattern is the "none" pattern (a IFillPolygon wouldn’t have cared 
// about the brush being an arrow). 

void IFillMultiLinc::draw (Canvas* c, Graphic* gs) { 

IBrush* brush = (IBrush*) gs->GetBrush(): 

IPattem* pattern = (IPattem*) gs->GctPattcm(); 

if (!brush->LcftAiTow() && !bnish->RightArrow() && !pattcm->NoncO) { 
FillPolygon::draw(c, gs); 

} 

) 


ipalnth 

#ifndef ipaint_h 
#define ipaint_h 

#include <dnterViews/Graphic^painl,h> 

// An IBmsh knows how to test for its noneness and get its line 
// pattern, width, arrows, and dash pattern. 

class IBrush : public PBrush { 
public: 

IBrushO: 

IBmsh(int, int, boolean, boolean); 

boolean Nonc(); 
int GelLinePattemO; 
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int WidthQ; 
boolean LeftArrowO; 
boolean RightArrowO; 
const int^ GctDashPattem(); 
int GetDashPattemSizeQ; 
int GetDashOffsetO; 
operator Brush*(); 

protected: 

void CalcDashPat(int); 

boolean leftarrow;// stores tnie if line starts from an arrowhead 
boolean rightarrow;// stores true if line ends in an arrowhead 
int dashpat[pattemWidth];//stores dash pattern 
int dashpatsize;// stores number of defined elonents in dashpat 
int dashoffset;// stores dash pattern’s offset 


//Define inline access functions to get members' values. 

inline boolean IBrash::None () { 
return (value nil); 

) 


inline boolean IBrush:icftArTow 0 { 
return leftarrow; 

} 


inline boolean IBrush::Ri^tArrow () ( 
return rightarrow; 

I 

inline int IBnish::GctlincPattcm () { 
return p; 

1 


inline const int* IBrush::GetDashPattem () { 
return dashpat; 

I 

inline int IBrush::GetDashPattemSi 2 e 0 { 
return dashpatsize; 

} 

inline int IBrush::GctDashOf[sct () | 
return dashoffset; 

I 

inline EBrushnoperator Brush* () { 
return value; 

I 


// An IColor knows how to get its name. 

class IColor: public PColor { 
public: 

ICoior(const char*); 

IColoKint, int, int, const char*); 

IColoKColor*, const char*); 

-IColorO; 

const char* GetNameO; 
operator Color*0; 

protected: 

char* name;// stores name passed into constructor 


I; 

// Define inline access functions to get members' values, 
inline const char* ICoIor::GetNamc () { 


return name; 


inline IColor::operator Color* {) { 
return value; 

} 

// An IFont knows how to get its name, print font, and print size. 

class IFont: public PFont { 
public: 

IFont(const char*, const char*, const char*); 

-IFontO; 

const char* GetNamcO; 
const char* GetPrintFontQ; 
const char* GctPrintSizcO; 
const char* GetPrintFontAndSizc(); 
int GetLineHtO; 
operator Font*0; 

protected: 

const char* FilteiName(const char*); 

char* printfont;// stores name of font used by printer 
char* printsize;// stores scale of font used by printer 
char* printfontandsize;// stores name and size separated by a blank 
int lineHt;// stores printsize converted to int 


}; 


// Define inline access functions to get members' values. 

inline const char* IFont::GetName () { 
return name ? name: "stdfont"; 

} 

inline const char* IFont::GetPrmtFont 0 I 
return printfont; 

) 


inline const char* IFont::GetPrintSize () { 
return printsize; 

) 


inline const char* IFont::GetPrintFontAndSize () { 
return printfontandsize; 

) 


inline int IFont::GctLincHt () { 
return lineHt; 

1 


inline IFont::operatorFont* () { 
return value; 

I 

// An IPattem knows how to test for its noneness or fullness and get 
// its dither, data, and gray level. 

class IPattem : public PPattem { 
public: 

IPattem 0; 
lPattcm(int, float); 

IPattem(intpattcmIpattemHeight], int); 

boolean NoneQ; 
float GetGrayLcvelO; 
const int* GetDataQ; 
int GetSizcO; 
operator Pattcm*0l 


protected: 



float graylevel;// stores gray level for grayscale patterns 
int size;//stores pat's orig size (4x4, 8x8, or 16x16) 


//Define inline access functions to get monbers' values. 

inline boolean IPattcni::None () { 
return (value *= nil); 

I 

inline float IPattem::GctGrayLevel 0 I 
return graylevel; 

} 


inline const int* IPattem::GetData () { 
return data; 

) 


inline int IPattem::GetSize () { 
return size; 

} 


inline lPattcm::operator Pattern* () { 
return value; 

} 

#endif 


ipalntc 

#include "ipainth" 

#includc "istring.h" 

#include <stdlibJ\> 

//IBmsh creates the brush. Calling IBrush with no arguments creates 
// the "none" brush. 

IBriish::IBrush (): 0 { 
leftarrow « false; 
rightarrow » false; 

CalcDashPat(Oxfnr); 

i 

IBrush::IBtush (int p, int w, boolean I, boolean r): (p, w) | 
leftarrow = 1; 
rightarrow « r; 

CalcDasliPat(p); 

1 

// Width overrides PBrush::Width when FBrtish's value is the predefined 
// brush single because single cannot be trusted to return 1. It 
// might return 0 because the X implnn^tation mi^t si]^port only a 
// fast, dcvicc-d«^>cndcnt brush, not the standard single-width brush. 

int IBrush: :Width 0 ( 
int width = PBrush::WidthO; 
if (value *= single) { 
width = 1; 


return width; 

I 

// CalcDashPat calculates and stores the Postscript dash pattern 
// corresponding to the brush's line pattern. 

void IBrush::C!!alcDashPat (int linq)at) { 

linepat &« Oxffff;//mask should always match pattemWidth 

if (linq>at ««= 0x0000) | // clear bnish 

dashpatsize s! 0; 
dashofiset = -l; 

} else if (linepat *== Oxffff) { //solid brush 
dashpatsize > 0; 
dashoffset > 0; 
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} else if (lin^t *= 0x5555) { // dotted brush, store 1 element not 16 
dashpat[0] = 1; 
dasl^atsizes 1; 
dashofTset = 1; 

} else if (linepal = Oxaaaa) { // dotted brush, store 1 element not 16 
dashpatfO] = 1; 
dashpatsize 1; 
dashoffset = 0; 

I else { 
int i ^ 0; 

while (!((linepat «i) & 0x8000)) { 

++i; 

1 

dashoffset = pattemWidth - i + 1; 
int j = 0; 

boolean currentrun *= true; 
int length » 0; 

for (int k = 0; k < pattemWidth; k-M-) { 
if ((((linepat«i) & 0x8000) != 0) — currentrun) { 

-H-lcngth; 

} else { 

dashpat[j++] * length; 
currentmn «Icurraitrun; 
length = 1; 

I 

i a (i ns pattemWidth) ? 0 : i + 1; 

} 

if (length > 0) { 
dashpat[j]«Iragth; 

I 

dashpatsize=j + 1; 

1 


const int Postscriptdashlimit» 11; 
if (dashpatsizoPostscriptdashlimit) { 
fprintffstderr, "Brush dash pattern Qx%x exceeds maximum ", linepat); 
fprintf(stderr, "length of Postscript dash pattern with "); 
fprintffstderr, "%d elements, tmneated to ", dashpatsize); 
fprintffstderr, "%d elementsNn", Postscriptdashlimit); 
dashpatsize » Postscriptdashlimit; 

1 


// IColor creates the named color and stores its name. 

IColortIColor (const char* n): (n) { 
name « strdup(n); 

I 


// IColor creates the color using the given intensities and stores its 

// "name". 

IColor::IColor (int r, int g, int b, const char* n): (r, g, b) { 
name « strdup(n); 

) 

// IColor stores the given color and its "name". 

IColor: JColor (Color* color, const char* n) { 
value B color, 
value->Rcfcrencc0; 
name s strdup(n); 

I 

// Free storage allocated for the name. 

I01or::-ICo!or 0 I 
delete name; 

) 


// IFont creates the named font and stores the print font and size, 

IFoni::IFont (const char* name, const char* pf, const char* ps) 

: (RltcrNamc(namc)) { 
printfont *5trdup(p0; 



printsize =* strdup(ps); 

phntfontandsize = new char[strlcn(pf) + 1 + strlen(ps) + 1]; 

strcpy(printfontandsi 2 c, pf); 

strcat(printfontandsi 2 c," "); 

strcat(printfontandsize, ps); 

lincHt as atoi(ps); 

} 

// Free storage allocated for the print font and size. 

IFont::-IFont Q { 
delete printfont; 
delete printsize; 
delete printfontandsize; 

} 


// FiltcrName filters the name to wisurc "stdfont" does not pass 
// through to PFont without being converted to nil. 

const char* IFont::FilterName (const char* name) { 
if (strcmp(name, ''stdfont”) s= 0) { 
name s= nil; 


return name; 

} 

// IPattem creates the pattern. Calling IPattem with no arguments 
// creates the "none" pattern, calling IPattem with an integer 
// creates a pattern from a 4x4 bitmap, calling IPattem with an array 
// and the actual size creates a pattern from a 16x 16 bitmap that may 
// have originally been 8x8, and calling IPattem with an integer and 
// a float creates a grayscale pattern from a 4x4 bitmap. 

IPattem "IPattem (): () | 
graylcvcl*-!; 
size s 0; 

} 

IPattcm::IPattcm (int dither, float g): (dither) ( 
graylevel * g; 
size = 0; 

} 

IPattera::IPattem (int data[pattemHeight], ints): (data) ( 
graylevel * -1; 
size s $; 

) 


ipolygons.h 


#i£ndef ipolygons_h 
#define ipolygons_h 

#include <InterViewsAjraphic^olygons-h> 

// An IFillRcct knows when NOT to draw itself. 

class IFillRect: public RllRect { 
public: 

IFinRect(Coord, Coord, Coord, Coord, Graphic* * nil); 
protected: 

boolean contains(PointObj&, Graphic*); 
boolean intcisccts(BoxObj&, Graphic*); 
void draw(Canvas*, Graphic*); 

I; 


// An IFillPolygon knows when NOT to draw itself. 

class IFillPolygon : public FillPolygon { 
public: 



IRlIPolygon(Coord*, CooM*, int, Graphic* = nil); 


protected: 

boolean contains(PomtObj&, Graphic*); 
boolean intcrsects{BoxObj&, Graphic*); 
void draw(Canvas*, Graphic*); 


}; 


#endif 


ipolygons.c 

#include "ipainth" 

#include "ipolygons.h" 

// IFillRect passes its argumOTts to FillRect 

EFillRectrJFillRect (Coord xO, Coord yO, Coord xl, Coord yl,Graphic* gs) 
:(x0, yO, xl,yl,gs) { 

1 

// contains returns true if the IRllRcct contains the givoi point 
// unless the pattern is the "none" pattern. 

boolean IFillRect::contains (PointObj& po, Graphic* gs) { 
boolean contains s false; 

IPattem* pattern = (IPattem*) gs->GctPattemO: 
if (!pattem->None()) { 
contains sFillRect::contains(po, gs); 

} 

return contains; 

I 


// intersects returns true if the IFillRect intcraects the given box 
// unless the pattern is the "none" pattern. 

boolean IFillRect::intcrsects (BoxObj& userb, Graphic* gs) { 
boolean intersects s false; 

IPattem* pattern = (IPattem*) gs->GctPattem(); 
if (!pattcm->None()) | 
intersects >= FillRect:nntersects(userb, gs); 

I 

return intersects; 


// draw draws the IFillRect unless the pattern is the "none" pattern. 

void IFiIIRect::draw (Canvas* c, Graphic* gs) { 

IPattem* pattern *= (IPattem*) gs-::^etPattcm(); 
if (!pattem->Nonc()) { 

FillRect::draw(c, gs); 

I 

I 


//IFillPolygon passes its arguments to FillPolygon. 

IFillPoIygon: JFillPolygon (Coord* x. Coord* y, int n, Graphic* gs) 
: (x, y, n, gs) { 

I 

// contains returns true if the IFillPolygon contains the given point 
// unless the pattern is the "none" pattern. 

boolean IFillPolygon::contains (PointObj& po. Graphic* gs) { 
boolean contains «= false; 

IPattem* pattern = (IPattem*) gs->GctPattcm(); 
if (!pattem->None()) | 
contains » FiilPolygon::contains(po, gs); 

I 

return contains; 

) 


// intersects returns true if the IFillPolygon intersects the given 
// box unless the pattern is the "none" pattern. 
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boolean IFillPolygon:nntersects (BoxObj& useib. Graphic* gs) { 
boolean intersects = false; 

IPattem* pattern = (IPattem*) gs->GetPattem(); 
if (!pattem->NoneO) { 

intersects « FillPolygon:Huntersccts(userb, gs); 

I 

return intersects; 

} 


// draw draws the IFillPolygon unless the pattern is the "none" 
// pattern. 

void IFillPolygon::draw (Canvas* c. Graphic* gs) { 

IPattem* pattern = (IPattem*) gs->Getf*attem(); 
if (!pattem->Nonc()) | 

FillPolygon::draw(c, gs); 

} 

} 


isplines.h 

#ifhdef isplines_h 
#define isplines_h 

#include <lnterViewsA3raphic/splines.h> 

// An IHllBSpline knows when NOT to draw itself. 

class DPillBSpIine : public FillBSpIine { 
public; 

IFillBSpline(Coord*, Coord*, int, Graphic* = nil); 
protected: 

boolean contains(PointObj&, Graphic*); 
boolean iniersccts(BoxObj&, Graphic*); 
void draw(Canvas*, Graphic*); 


// An IFillClosedBSpline knows when NOT to draw itself. 

class IFillClosedBSpline : public FillBSpIine ( 
public: 

nnl]ClosedBSpline(Coord*, Coord*, int, Graphic* =nii); 
protected: 

boolean contains(PointObj&, Graphic*); 
boolean intersects(BoxObj&, Graphic*); 
void draw(Canvas*, Graphic*); 


); 


#cndif 


isplines.c 


#define _POSIX_SOURCE 
#include "ipainth" 

#includc "isplines.h" 

#include <InterViews/StdAnath.h> 

#include <InterViewsAjraphicAitilJi> 

// IRllBSpline repeats the first and last points three times to 
// ensure that the spline will pass throu^ the first and last points. 

IInIlBSpline::IFillBSpline (Coord* ax, Coord* ay, int n. Graphic* gs) 
: (ax, ay. n, gs) { 
delete x; 


delete y; 
count = n + 4; 

X ss new Coord [count]; 

y = new Coord [count]; 

x[0] = ax[0]; 

x[l] = ax[0]; 

x[count -1] = ax[n • 1]; 

x[count - 2] = ax[n -1]; 

y[0] = ay[0]; 

y[l] = ay[0]; 

y[count - 1] =s ay[n -1]; 

yicount -2]- ay[n -1]; 

CopyArray(ax, ay, n, &x[2], &y[2]): 

} 


// contains returns true if the IFillBSpline contains the given point 
// unless the brush is an arrow or the pattern is the "none" pattern. 

boolean IFillBSplinc::contams (PointObj& po, Graphic* gs) { 
boolean contains « false; 

IBrush* brush = (IBrush*) gs->GetBmsh(); 

IPattem* pattern = (IPattem*) gs->GctPattcmO; 

if (!brush->LcftArrow() && !brush->RightAiTow() && !pattcm->NoneO) ( 
contains s=FillBSpline::contains(po, gs); 

I 

return contains; 

) 


// intersects returns true if the IFillBSpline intersects the gjven 
// box unless the brush is an arrow or the pattern is the "none” 

//pattern. 

boolean IFillBSpline:hntersects (BoxObj& userb. Graphic* gs) { 
boolean intersects s false; 

IBrush* brush = (IBrush*) gs->GetBiush(); 

IPattem* pattern = (IPattem*) gs->GctPattcm(): 

if (!brush->LeftAiTow() && !brush->RightArrow() && !pattem->NoneO) { 
intersects » FillBSpline::intersccts(uscrb, gs); 

I 

return intersects; 

} 


// draw draws the IHllBSpline unless the bmsh is an arrow or the 
//pattern is the "none" pattern. 

void IFillBSpline::draw (Canvas* c, Graphic* gs) { 

IBrush* brush = (IBrush*) gs->GctBrush(): 

IPattem* pattern = (IPattem*) gs->GctPattem(); 

if (!brush->LeftArrow() && !bru5h->RightArrowO && !pattcm->Nonc()) { 
FillBSplinc::draw(c, gs); 

} 

} 


// IFillQosedBSpline passes its arguments to RllBSpline. 

IFillClosedBSpline: JFillQosedBSpline (Coord* x. Coord* y, int n. Graphic* gs) 
: (x, y, n, gs) I 

I 

// contains returns true if the IFillClosedBSpline contains the given 
// point unless the pattern is the "none" pattern. 

boolean IFillCloscdBSplinc:;contains (PointObj& po. Graphic* gs) { 
boolean contains ~ false; 

IPattem* pattern = (IPattem*) gs->GctPattem(); 
if (!pattcm->None()) { 
contains =FillBSplinc::contains(po, gs); 

I 

return contains; 

I 

// intersects returns true if the IFillClosedBSpline intersects the 
// given box unless the pattern is the "none" pattern. 

boolean IFillQosedBSplineinntersects (BoxObj& userb. Graphic* gs) { 
boolean intersects « false; 
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IPattcm* pattern «(IPattem*) gs->GctPattem(); 

if (!pattcm->NoneO) { 

intersects = FillBSplinc::intersects(userb» gs); 

I 

return intersects; 

I 

// draw draws the DFillClosedBSpline unless the pattern is the "none” 
// pattern. 

void lFillCiosedBSp!ine::djraw (Canvas* c. Graphic* gs) { 

Il^ttem* pattern = (IPattem*) gs->GctPattcm(): 
if (!pattcm->None()) { 

FillBSpline::draw(c, gs); 

1 

) 


istring.h 

#ifhdef istring_h 

#define istring_h 

#includc <string.h> 

// ranoves improper characters from a char string 

char* RemoveBadChars(char*); 

int LengthWithoutChars(char*, char*); 

// create tempoary file name by retrieving environment variable 

// TEMP and concantenating the filename onto it. 

char* MakeTmpFileName(char*): 

// strdup allocates and returns a duplicate of the given string. 

inline char* strdup (const char* s) | 
char* dup - new char(strlen(s) + 1]; 
strcpy(dup, s); 
return dup; 

} 

// stmdup allocates and returns a duplicate of the first len 

// characters of the given string. 

inline char* stmdup (const char* s, int len) { 
char* di^ *= new char[lcn + 1]; 
stmcpy(^p, s, len): 
diq)[len] = \0’; 
return dq}; 

I 

#endif 


istring.c 

#include "istring.h" 

#include «dntcr^ews/dcfs.h> 

extern "C" 

{ 

extern char *gctenv(char *); 

I 


char* RcmovcBadChars(char* string) { 

int new Jen = Length WithoutChars(string, "^"); 

int old^len =* strlen(string); 

char* modified_string » new charfoldjcn + 1]; 

if (new__lcn < old_lai) ( 

int m_ctr * 0; 

for (int i * 0; i < oldjen; ++i) { 
if (string[i] 1= V && string[i] 1= ") { 
modified_string(m_ctrH-+] * stringp]; 

I 

I 

modificd_string[m_ctr]» NO’; 
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I 

else { 

strcpy(modified_string^tring); 

} 

return modified_string; 

} 


mtLCTigthWithoutChars(char* string, char* unwantcd_chars) { 

int size strlen(unwanted_chars); 

int string_sizc » strlen(string); 

int no_of_chars = 0; 

for (int i = 0; i < size; ++ i) { 

for (int j * 0; j < string_size; ++j) { 

if (stringjj] unwanted_chaTs(i]) { 

++no_of_chars; 

} 


return string_size - no_of_chars; 

I 

// make t«nporary filoiame by concatenating the environmwt variable 
// TEMP with the given filename 

char* MakeTmpFileName(char* filename) { 
char* tmp_dir - (char*) getcnvCTEMP"); 
char* result; 

if (tmp_dir I* nil) ( 

int tnip_lcn = strlcn(tmp_dir); 

result =: new char[tmp_lai + strlen(filcname) + 2]; 

strcpy(rcsult, tmp_dir); 

if(tmp_dir[tmpjcn -1] != /) { 

strcat(rcsult, "f')', 

) 

$trcat(result, filename); 

I 

else { 

result - filename; 

I 

return result; 

} 


keystrokes,h 


static ctmsl char SELECTCHAR = 's'; 
static const char MOVECHAR = 'm': 

static const char STATESCHAR = "X'; 
static const char EXCEPTCHAR «\305'; //^E'; 
static const char KEYWORDCHAR = "K"; 
static const char LABELCHAR «'L'; 

static const char LATENCYCHAR *'j'; 

static const char IFCHAR ■« "F; 

static const char BYALLCHAR «'A‘: 

static const char B YSOMECHAR * T'; 


static const char RESET_TIMERCHAR 
static const char START_TIMERCHAR 
static const char STOP_'nMERCHAR 
static const char INFORMALCHAR 
static const char FORMALCHAR 


static const char HOURCHAR = 'H'; 

static const char MINUTECHAR = 'N'; 
static const char SECONDCHAR = 'S'; 
static const char MILSECCHAR ■= 'M'; 
static const char MICSECCHAR “ *€'; 

static const char LHOURCHAR * 'I'; 

static const char LMINUTECTIAR »*2'; 
static const char LSECONDCHAR = *3'; 
static const char LMILSECCHAR * '4'; 
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static const char LMICSECCHAR 


“'5'; 

static const char INTEGERCHAR = "i'; 
static const char REALCHAR * V; 

static const charBOOLEANCHAR = V; 
static const char USERDEFINEDCHAR = 'u'; 

//static const char STRETCHCHAR= V: 
static const char MODIFYCHAR= 'q'; 
static const char DECOMPOSECHAR = D'; 
static const char COMMENTCHAR= T'; 
static const char BSPLJNECHAR= 'h'; 
static const char ELLIPSECHAR* 'o'; 
static const char RECTCHAR= 'r‘; 

// You can execute a PullDownMenuCommand by typing one of these 
// characters. 

static const char NEWCHAR= ^016'; // 
static const char REVERTCHAR- V)22'; // ^R 
static const char OPENCHAR= 'NDIT; 
static const char SAVECHAR* \!)23'; // 
static const char SAVEASCHAR- >001'; //^A 
static const char PRINTCHAR= V)20'; // 
static const char QUITCHAR= V)21// 

static const char UNDOCHAR= TJ'; 
static const char REDOCHARs= 'R'; 
static const char DELETECHAR= \004'; // 
static const char SELECTALLCHAR- 'a'; 

static const char REDUCECHAR*= T; 
static const char ENLARGECHAR= 'e‘; 
static const char NORMALSIZECHAR= * 0 '; 
static const char REDUCETOFTTCHAR^ 
static const char CENTERPAGECHAR='/'; 
stotic const char REDRAWPAGECHAR^ V)14'; // 
static const char GRIDDINGONOFFCHAR= 
static const char GRIDVISIBLEINVISIBLECHAR = 
static const char GRIDSPACINGCHAR= 'Z; 
static const char ORJENTATIONCHAR= 
static const char SHOWVERSIONCHAR** 

listh 

#ifndef list_h 
#definc list_h 

#includc <InterVicws/dcfsdi> 

// A BaseNode contains links to its previous and next BaseNodes. 

// BaseLists can link BaseNodes to each other to form lists of 
// BaseNodes. 

class BaseNode { 

friend class BaseList; 

public: 

BaseNodeQ; 
virtual ~BaseNodc(); 

virtual boolean SameValucAs(void*); 

protected: 

private: 

BaseNode* prev;// points to previous BaseNode in list 
BaseNode* next;// points to next BaseNode in list 

1 ; 

// A BaseList maintains and iterates through a list of BaseNodes. 


class BaseList | 
public: 


BaseListO; 

~BaseList(); 

int Sizc(): 
boolean AtEndQ; 

BaseNode* First(); 

BaseNode* LastQ; 

BascNodc* Prev(): 

BaseNode* NextQ; 

BaseNode* GetCurO; 

BaseNode* Index(int); 
boolean Find(void*); 

void Append(BaseNode*); 
void Prcpend(BaseNode*); 
void InsertAftcrCur(BaseNode*); 
void InsertBeforcCur(BaseNode*); 

void R«noveCur(); 
void DcIeteCur(); 
void DeleteAIIO; 

private: 

BaseNode* head;// points to dummy head of circular list 
BaseNode* cur,// points to curmit node of circular list 
, int size;// stores number of non-dummy nodes in list 


// Size returns the number of non-dummy nodes in a list. 

inline int BaseList::Size 0 { 
return size; 

} 


// AtEnd returns true if the current node is the dummy node. 

inline boolean BaseList::At£nd () { 
return cur «*=* head; 

I 

// First returns the first node in a list (or the head if it's empty) 

// and sets the current node to that node. 

inline BaseNode* BaseList: Jnrst Q { 
cur»head->nex^ 
return cur, 

I 

// Last returns the last node in a list (or the head if it's empty) 

// and sets the current node to that node. 

inline BaseNode* BaseList:±ast () { 
cur« hcad->prcv: 
return cur, 

) 


// Prev returns the node before the current node and sets the current 
// node to that node. 

inline BaseNode* BascList::Prev Q I 
cur * cur-3^rev; 
reoim cun 
I 


// Next returns the node after the current node and sets the current 
// node to that node. 

inline BaseNode* BaseList::Ncxt 0 I 
cur Kcur->next; 
return cur, 

I 

// GetCur returns the current node in a list 



inline BascNode* BascList::GetCur () { 
return cur, 

I 

#cndif 

listc 


#include "lisUh" 

// BascNode zeroes its pointers. 

BascNodc:'3aseNode () { 
prev as nil; 
next = nil; 

} 


BascNodeir-BaseNode () | 

// no storage allocated by base class 

} 

// SamcValueAs returns true if this class contains a data member of 

// any pointer type that has the same value as the g^ven pointer. 

boolean BaseNode::SameValucAs (void*) ( 

// base class contains no data members 
return false; 


// BaseList starts with only a header node. 

BaseList:£aseList Q { 

cur« head * new BascNode; 
head->prev * head->next = head; 
size s 0; 

I 

// •^BaseList destroys the list 
BaseListt^BaseList () { 

DcleteAllO: 

delete head; 

I 

// Index returns the node that would be the indexied element if the 
// list was a C array (0 » first, 1 * next,size-1 = last) or nil 
// if the index is out of bounds. Index sets the cummt node to the 
// indexed node if it’s in the list; otherwise, the current node 
// remains the same. 

BascNode* BaseListrlndex (int index) { 

BascNode* clem » nil; 
if (index 0 && index < size) ( 
clem * hcad->ncxt; 
for (int i = 0; i < index; i++) { 
elcm = clem->ncxt; 

\ 

cur as elan; 

) 

return elem; 

I 


// Find returns true if the list contains a node with a data member 
// whose value is the same as the given pointer or false if there is 
// no sudi node. Find sets the current node to that node only if it 
// finds such a node; otherwise, the current node remains the same. 

boolean BaseList: J^d (void* value) { 

for (BascNode* elem * hcad->ncxt; clem !* head; elcm » elcm->ncxt) { 
if (clcm->SameValucAs(valuc)) { 
cur elem; 
return tru^ 

I 

) 

return false; 
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) 


// Append inserts a node after the last node of the list. The current 
// node remains the same. 

void BascList::Appcnd (Basd*Jode* appendee) { 

BaseNode* last» head->prev; 
appendce'>prev =last; 
appendce->«ext = head; 
head->p rev = appendee; 
last->next = appendee; 

++size; 

} 


// Prepend inserts a node before the first node of the list Tlie 

// canent node remains the same. 

voidBaseList::Prcpend (BaseNode* prependee) { 

BaseNode* first = head->next; 
prcpendec->prev ® head; 
prependec-5mext = first; 
first->prcv = prependee; 
head->next = prependee; 

++size; 

} 

II InsertAftciCur inserts a node after the current node of the list 

// Ibe current node ranains the same. 

void BascListrJnscrtAftcrCur (BaseNode* prependee) { 
BaseNode* first s=cur->next; 
prcpendec->prev « cur; 
prep«idcc->next * first; 
first->prev * prependee; 
cu^>ncxt = prependee; 

++size; 


// InsertBeforeCur inserts a node before the current node of the list 

// The current node remains the same. 

void BaseListrJnsertBeforeCur (BaseNode* appendee) ( 
BaseNode* last * cur*>prev; 
appendee->prcv = last; 
appendec->next ® cur; 
cur->prev « appendee; 
last->next = appendee; 

++sirc; 

) 


// RemoveCur removes the current node of the list (if it's a node and 
// not the head) and sets the current node to the following node. 

void BaseList::RemovcCur 0 I 
if (cur != head) | 

BaseNode* before = cur->prev; 

BaseNode* after « cur->next; 
aftcr->prev * before; 
bcforc->next» after, 
cur = after, 

—size; 



// DeleteCur deletes the current node of the list (if it’s a node and 
// not the head) and sets the current node to the following node. 

void BascList::DeletcCur 0 I 
if (cur las head) { 

BaseNode* before * cur->prev; 

BaseNode* after « cur->ncxt; 
aftcr->prev « before; 
before->next *a after, 
delete cur, 
cur «a after, 

—size; 
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// DeleteAll deletes all the nodes of the list, making the list empty 
// again, and sets the current node to the list's head. 

void BaseList::DeletcA!l () | 

BaseNode* after * nil; 

for (BaseNode* doomed * head->next; doomed != head; doomed =* after) ( 
after = doomed->next; 
delete doomed; 

I 

cur ahead; 

head->prev * head->next * head; 
sizc*0; 

I 


listboolean.h 


#i&idef listboolean_h 
#define listboolean_h 

#include "listh" 

// A booleanNode contains a boolean value. 

class booleanNode: public BaseNode { 
public: 

booleanNode (boolean v) { value * v; } 
boolean GetBoolean () { return value; ) 

protected: 

boolean value;// contains a boolean value 


// A boolcanList manages a list of boolcanNodes. 

class boolcanList: public BaseList ( 
public: 

booleanNode* First(); 
booleanNode* LastQ; 
booleanNode* Prev(); 
booleanNode* Ncxt(); 
booleanNode* GetCurO; 
booleanNode* Index(int); 


// dast these functions to return boolcanNodes instead of BaseNodcs. 

inline booleanNode* booleanList:*Jnrst () ( 
return (booleanNode*) BascList::FiistO; 

) 


inline booleanNode* booleanList:last Q { 
return (booleanNode*) BaseIist:dastO; 

) 


inline booleanNode* boolcanList: Jhev Q j 
return (booleanNode*) BaseList: JVcvQ; 

1 

inline booleanNode* boolcanList::Next 0 ( 
return (booleanNode*) BascList:J'Iext(); 

} 

inline booleanNode* boolcanList::GetCur 0 { 
return (booleanNode*) BascList::GetCur(); 

1 

inline booleanNode* booleanList::lndex (int index) { 
return (booleanNode*) BaseList::lndex(index); 
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} 


#endif 


iistcenter.h 

#ifhdef listcentcr_h 
#define listccntcr_h 

#include "listh" 

// A CcnterNode contains two float values. 

class CcnterNode : public BaseNode ( 
public: 

CentcrNode (float x, float y) { cx = x; cy * y; } 
float GetCx 0 { return cx; } 
float GetCy 0 I return cy; | 

protected: 

float cx, cy;// stores a position 




// A CoiterList manages a list of Coito-Nodes. 

class CoiterList: public BaseList { 
public: 

CcnterNode* First(); 

CcnterNode* Last(): 

CentcrNode* Prev(): 

CcnterNode* NextQ; 

CcnterNode* GetCur(); 

CcnterNode* Index(int); 


I; 

// Cast these functions to return CenteiNodes instead of BaseNodes. 

inline C«iteri^ode* CaiteiList: J^irst 0 { 
return (CcnterNode*) BaseList: Jnrst(); 

I 


inline CcnterNode* CenteiList::Last () { 
return (CcnterNode*) BascList:iastO; 

1 

inline CentcrNode* CcntcrList::Prev Q { 
return (CCTiterNodc*) BascList::Prev(); 

1 


inline CcnterNode* CcntciList::Ncxt () { 
return (CcnterNode*) BaseList::Next(); 

1 

inline Ccntcd'Jode* CentcrLisl::GctCur () { 
return (CcnterNode*) BaseList::GctCurO; 

} 


inline CwitciNode* CenteiList::lndex (int index) { 
return (CcnterNode*) BaseList::lndex(index); 

I 

#endif 


listchange.h 


#i£ndcf listchangc_h 
#define listchange^h 

tinclude "listh" 
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// Declare imported types. 

class CenterList; 
class Drawing; 
class Drawing View; 
class Grouplist; 
class IBrush; 
class IBrushList; 
class IColor, 
class IColorList; 
class IFont; 
class IFontList; 
class IPattcm; 
class IPattemList; 
class Selection; 
class SelectionList; 
class State; 

// ChangcNode stores a change to the Drawing in reversible form and 
// can carry out or remove the change. 

class QiangeNode : public BaseNode { 
public: 

ChangeNodeQ; 

ChangeNode(Drawing*, DrawingView*, boolean = false); 
-ChangeNodeO; 

virtual void DoQ; 
virtual void UndoO; 

protected: 

Drawing* drawing;//performs operations on drawing 
DrawmgView* drawingview;// displays drawing 
SelectionList* oldsl;// lists the old Selections 


I; 


// MoveChange translates the Selections. 

class MoveChange: public ChangeNode ( 
public: 

MovcChange(Drawing*,DrawingView*, float, float); 

void Do(); 
void Undo(); 

protected: 

float dx, dy;// carries out translation 
float undodx, undody;// removes translation 


// ScaleChange scales the Selections. 

class ScaleChange : public ChangeNode { 
public: 

ScaleChange(Drawing*, DrawingView*, float, float); 

void Do(); 
void UndoQ; 

protected: 

float sx, sy;// carries out scaling 
float undosx, undosy;// removes scaling 


1 ; 

// StretdiChange stretches the Selections, 
class StretchChange: public ChangeNode { 


public: 


StretchChange(Drawing*, Drawing View*, float. Alignment); 

void Do(); 
void Undo(); 

protected: 

Alignment C)ppositcSide(A!ignmcnt): 

float stretdi;// carries out stretching 
float undostretch;// removes stretching 
Alignment side;// indicates fixed side for do 
Alignment undoside;//indicates fixed side for undo 


// RotateChange rotates the Selections. 

class RotateChange : public ChangeNode { 
public: 

RotateChange(Drawing*, DrawingView*. float); 

void Do(); 
void Undo(); 

protected: 

float angle;//carries out rotation 
float undoangle;//removes rotation 


// RcpIaccChange replaces a Selection with another Selection. 

class ReplaceChange: public ChangeNode { 
public: 

Rq)laceChange(Drawing*, DrawingView*, Selection*, Selection*); 
-RcplaceChangeO; 

void DoQ; 
void UndoO; 

protected: 

Selection* replacec;//stores to-be-replaced Selection's address 
Selection* replacer,//stores replacing Selection’s address 


}; 


// SetBrushChange sets the Selections' brush. 

class SctBnishChangc: public ChangeNode { 
public: 

SctBrushChange(Dra wing*, DrawingView*, IBrush*); 
“SetBrushChangeO; 

void DoO; 
void Undo(); 

protected: 

IBrush* brush;// brush value to set 

IBrushList* undobrashlist;// brush values to restore 


}; 

// SetFgColorChange sets the Selections' foreground color. 

class SetFgColorChange: public ChangeNode { 
public: 
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SetFgColorChange(Drawing*, Drawing View*, IColor*); 
~SetFgG5lo!ChangeO; 

void Do(); 
void UndoO; 

protected: 

IColor* fgcolor;// color value to set 
IColoiList* undofglist;// color values to restore 


// SetBgCoIoiChange sets the Selections' background color. 

class SetBgColorChange: public ChangeNode | 
public: 

SetBgColorChange(Drawing*, Drawing View*. IColor*); 
'“SetBgColorChangeO; 

void Do(); 
void Undo(); 

protected: 

IColor* bgcolor,// color value to set 
IColoiList* undobglist;// color values to restore 


}; 


// SetFontChange sets the Selections' font 

class SetFontChange : public ChangeNode { 
public: 

SetFontChange(Drawing*, DrawingView*, IFont*); 
-SetFontChangcO; 

void Do(); 
void UndoQ; 

protected: 

IFont* font;// font value to set 

IFontList* undofontlist;// font values to restore 


// SetPattemChange sets the Selections' pattern. 

class SetPattemChange : public ChangeNode { 
public: 

SetPattemChange(Drawing*, DrawingView*, IPattem*); 
~SetPattemChange(); 

void Do(); 
void Undo(); 

protected: 

IPattem* pattern; //pattern value to set 
IPattemlist* undopattemlist; // pattern values to restore 


// AddChange adds the Selections to the Drawing. 

class AddChange: public ChangeNode | 
public: 

AddChangc(Drawing*, DrawingView*); 
-AddChangeO; 

void Do(); 
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void UndoQ; 


protected: 

boolean done;// remembers if change was done 


// DeleteChange deletes the Selections from the Drawing. 

class DeleteChange ; public ChangeNode { 
public: 

DeleteChange(Drawing*, DrawingView*); 
-DeletcChangeO; 

void Do(); 
void UndoQ; 

protected: 

SelectionList"* prevlist;// lists the selections' predecessors 
boolean done;// ranembers if change was done 


); 


// CutChange ranoves the Selections from the Drawing and copies them 
// to the Clipboard, deleting the Qipboard's previous cont«its. 

class CutChange : public DeleteChange { 
public: 

CutChange(Drawing*, DrawingView*); 
void DoQ; 


// CopyChange copies the Selections to the Qipboard, deleting the 
// Qipboard’s previous contents. 

class CopyChange : public ChangeNode { 
public: 

CopyChange(Drawing*, DrawingView*); 
void DoQ; 


// PasteChangc copies the Selections in the Clipboard and appends the 
// new Selections to the Drawing. 

class PasteChange: public AddChange { 
public: 

PastcChangc(Drawing*, DrawingView*, State*); 


// DuplicateChange copies the Selections and appends the new 
// Selections to the Drawing. 

class DuplicateChange : public AddChange ( 
public: 

DuplicateChange(Drawing*, DrawingView*); 


); 

// GroupChange groups the Selections into a single PictSelection. 

class GroupChange: public ChangeNode | 
public: 

GroupChangefDrawing*, DrawingView*); 
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-GroupChangcOl 

void Do(); 
void Undo(); 

protected: 

SclcctionList* prevlist;// lists the selections' predecessors 
GroupList* grouplist;// lists the selections and their new parent 
boolean done;// remembers whether change was done 


// UngroupChange ungroups each PictSclection into its children. 

class Ungroiq>Change : public ChangeNode | 
public: 

UngroupChangc(Drawing*, DrawingView*); 
~UngroupChangeO; 

void DoQ; 
void UndoO; 

protected: 

GroupList* undogrouplist;// lists the selections and their children 
boolean don^// remembcfs whether change was done 


// BringToFrontChange brings the Selections to the front of the 
//Drawing. 

class BringToFrontChange : public ChangeNode { 
public: 

BringToFrontChangeODrawing*. DrawingView*); 
-BfingToFrontChangeO: 

void Do(); 
void UndoO; 

protected: 

SclecrionList* prevlist;// lists the selections' predecessors 


// SendToBackChange sends the Selections to the back of the Drawing. 

class ScntfToBackChange : public ChangeNode { 
public: 

SendToBackChangc(Drawing*, DrawingView*); 
-ScndToBackChangeO; 

void DoQ: 
void UndoO; 

protected: 

SclecrionList* prevlist;// lists the selections’ predecessors 


// AlignChange aligns the Selections. 

class AlignChange ; public ChangeNode { 
public: 

AlignChangc{Drawing*, DrawingView*, Alignment, Alignment); 
~AlignChangcO; 

void DoO; 
void UndoO: 


protected: 


Alignment falign;// part of fixed Selection to align up with 
Alignment malign;// part of moving Selection to align up with 
CenterList* centeriist;// stores Selections' original positions 


// AlignToGridChange aligns the Selections to the grid. 

class AlignToGridChange : public ChangcNode { 
public: 

AlignToGridChange(Drawing*, DrawingView*); 
'-AlignToGridChangcO; 

void DoQ; 
void UndoQ; 

protected: 

CenterList* centeriist;//stores Selections’ original positions 


}; 


// A ChangeList manages a list of ChangeNodes. 

class ChangeList: public BaseList { 
public: 

ChangcNode* FiistO; 

ChangcNode* LastQ: 

ChangeNode* PrevO: 

ChangcNode* Next(); 

ChangeNode* GetCu^); 

ChangcNode* Index(int); 


inline ChangeNode* ChangeList: :Rrst () { 
return (ChangeNode*) BaseList::First(); 

I 

inline ChangeNode* ChangcList::Last () { 
return (ChangeNode*) BaseList::Last(); 

} 

inline ChangcNode* ChangeList: :Prcv () ( 
return (ChangeNode*) BaseList::Prev(); 

} 


inline ChangcNode* ChangeList: :Ncxt 0 I 
return (ChangeNode*) BaseList::NextO; 

1 


inline ChangeNode* niangcList::GctCur 0 { 
return (ChangcNode*) BaseList::GetCurO; 

I 

inline ChangcNode* ChangcList::Indcx (int index) 1 
return (ChangcNode*) BaseList::lndcx(indcx); 

i 

#endif 


listchange.c 

#include "drawing.h" 
finclude "drawingvicwJi” 
tincludc "listccntenh" 
#include "listchange.h‘’ 
#include "listgroup.h" 
#include "listibrush-h" 
tincludc "listicolorh" 
#includc "listifonth" 




#include "listipattcm.h‘' 

#include "listsclcctn.h" 

#include "sclection.h" 

#include "slpicUi" 

// ChangcNodc creates a dummy ChangcNodc object for the header of the 
// ChangeList. 

ChangeNode::ChangeNode () { 
drawings nil; 
drawingview » nil; 
oldsl =: nil; 

I 

// ChangeNode stores the Drawing and DrawingView. It copies the 
// SelectionList, optionally sorting the SelectionList first 

ChangeNode::ChangcNode (Drawing* d. Drawing View* dv, boolean sort) { 
drawing >= d; 
drawingview =dv; 
if (sort) I 
drawing->Sort(); 

I 

oldsl = drawing->GctSelectionsO; 

) 


// Free storage allocated for the list of old Selections. 

ChangcNodc;:~ChangeNode () { 
delete oldsl; 

) 


// Do carries out the change to the Drawing. 

void ChangeNode: J)o 0 { 

//nop 


// Undo removes the change to the Drawing. 

void ChangeNode: :Undo 0 { 

//nop 

I 

II MoveChangc stores the Selections' translation in reversible form, 

MoveChangc::MoveChange (Drawing* d, Drawing View* dv, float xdisp, float ydisp) 

: ChangeNode(d, dv) { 
da s xdisp; 
dy » ydisp; 
undodx s -xdisp; 
tindody <= -ydisp; 

I 

// Do moves the Selections. 

void MovcChange:;Do () { 

drawingview->£rase£xcessHandles(olds]); 
drawing->Select(oldsl); 
drawingview->Damaged(); 
drawing->Move(dx, dy, drawingview); 

I 

// Undo moves the Selections back to their ori^al places. 

void MovcChangc::Undo 0 I 
drawingvicw->EraseExccssHandlcs(oldsl); 
drawing->Select(oldsl); 
drawingvicw->Damaged(); 
drawing->Move(undodx, undody, drawingview); 
drawingvicw->Damaged(); 

drawingvicw->RcpairO; 

I 

// ScaleOiange stores the Selections' scaling in reversible form. 
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ScaleChangerrScaieChange (Drawing* d, DrawingView* dv, float xsc, float ysc) 

: ChangeNodc(d, dv) { 
sx * xsc; 
sy = ysc; 

undosx = 1.0 / xsc; 
undosy = 1.0/ ysc; 

} 

// Do scales the Selections. 

void ScaleChangc: 0 { 

dTawingview->EraseExccssHandies(oldsl); 
drawing->Selcct(oldsl); 
drawingview->Damaged(); 
drawing->Scale(sx» sy); 
drawingview->DamagedO; 
drawingview->R^air(); 

) 

// Undo scales the Selections back to their fomicr sizes. 

void ScaleChangc::Undo Q { 

drawingview->EraseExccssHandlcs(oldsl); 

drawing->Sclect(oldsl); 

drawingview->Damaged(); 

drawing*>Scale(undosx, undosy); 

drawingview->Damagcd(); 

drawingview->Repair(); 

I 


// StretchChange stores the Selections' stretching in reversible form. 

StrctchChange::StrctchChange (Drawing* d, DrawingView* dv, float str. 
Alignment sd): ChangcNode(d, dv) { 
stretch = str; 
undostretch = 1/str; 
side = sd; 

undoside = (str <0) ? C)ppositeSide(sd): sd; 

1 

// Do stretches the Selections. 

void StretchChange:d)o 0 { 
dravdngview->EraseExccssHandles(oldsl); 
drawing->Select(oldsl); 
drawingvicw*>Damagcd(); 
drawing*>Strctch(stretch, side); 
drawingview->Damaged(); 
drawingview->Repair(); 

I 

// Undo stretches the Selections back to their former sizes. 

void StrctchChangc::Undo () { 
drawingview>>EraseExcessHandle$(oldsI); 
d ra wi ng->Sclect(ol ds 1); 
drawingvicw->Damaged(); 
drawing->Stretch(undostretch, undoside); 
drawingview->DamagedO; 
drawingyiew->Rq)air(); 

} 

// OppositeSide returns the side opposite the given side. 

Alignment StretchChangcrrOppositeSide (Alignment original) { 
Alignment opposite; 
switch (original) ( 
case Left: 
opposite « Right; 
break; 

case Ri^t: 
opposite = Left; 
break; 

case Bottom: 
opposite = Top; 
br^; 
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case Top: 

opposite = Bottom; 
break; 

I 

return opposite; 

} 

// RotateChange stores the Selections' rotation in reversible form. 

RotateChange::RotateChange (Drawing* d, DrawingView* dv» float a): 
ChangcNode(d, dv) { 
angle a; 
undoanglc = -a; 

} 


// Do rotates the Selections. 

void RotateChange: J)o 0 { 
drawingview->EraseExccssHandlcs(oldsl); 
drawing->Selcct(oIdsl); 
drawingview->Damaged(); 
drawing->Rotatc(angle); 
drawingvicw->Daniaged(); 

drawingview->RcpairO; 

} 


// Undo rotates the Selections back to their original places. 

void RotateChange: :Undo 0 { 

drawingvicw>>EraseExcessHandles(oldsl); 

drawing->Select(oIdsl); 

drawingview->Damaged(); 

drawing->Rotate(undoangle); 

drawingview->Damaged(); 

drawingview->Rq)airO; 

} 


// Skew comments/code ratio to work around cpp bug 


// ReplaceChange stores the r^Iaced and replacing Selections. 

ReplaceChange::ReplaceOiange (Drawing* d, DrawingView* dv, Selection* cc. 

Selection* er): ChangeNode(d, dv) ( 
replaceesee; 
replaccr » cn 

I 

// Free storage allocated for the Selection not in the 

// Drawing, which always resides in r^lacer. 

Rq)laccChangc::-RcplaceChangc () { 
delete replacer; 

1 

// Do swaps the replaced and replacing Selections. 

void ReplaceChange::Do () { 
dfawingvicw->]^seHandles(); 
draMring->Select(replacce); 
drawingview->Damaged(); 
drawing->Rcplacc(rcplacec, replaccr); 
drawing->Select(r^Iacer); 

Selection* temp = replace; 
replacer ■= replacee; 
rq)lacee B tonp; 

1 

// Undo unswaps the r^laced and r^lacing Selections. 

void ReplaceChange::Undo Q { 

Do(): 

1 
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// SetBrushChange stores the Selections’ original brushes and the new 
// brush to set. 

SetBmshChange;:SctBrushChange (Drawing* d, DrawingV^ew* dv, IBrash* br) 
: ChangcNode(d, dv) | 
bmsh = br, 

undobrushlist = drawing->GetBmshO; 

1 

// Free storage allocated for the list of original brushes. 

SetBnishChange::“SetBmshChange() { 
delete undobrushlist; 

) 

// Do sets the Selections’ new brush. 

void SetBrushChangeiJDo () { 

drawingview->EraseExcessHandles(oldsl); 

drawing->Select(oldsl); 

drawingview->Daniagcd(); 

drawing->SetBrush(brush); 

drawingvieW“>Damaged(); 

drawingvicw->Rcpair(); 

} 


//Undo restores the Selections’ original brushes. 

void SctBrushChange::Undo 0 I 

drawingview->ErascExcessHandles(oldsl); 

drawing->Select(oldsl); 

drawingview->Dainaged(); 

drawing->SetBrush(undobrushlist); 

drawingvicw->Damagcd(); 

drawingview*>Rcpair(); 

I 

// SetFgColorChange stores the Selections’ original foreground colors 
// and the new foreground color to set. 

SetFgColorChange::SetFgColoiChange (Drawing* d, DrawingView* dv, IColor* fg) 
; ChangeNode(d, dv) | 
fgcolor = fg; 

undofglist = drawing->GctFgColorO; 

} 

// Free storage allocated for the list of original colors. 

SctFgCo]orChangc::-'SetFgCoIorChangc 0 { 
delete undofglist; 

} 


// Do sets the Selections’ new foreground color. 

void SctFgColorChangciJDo () { 

drawingview->ErascExccssHandles(oldsl); 

drawing->Sclcct(oldsl); 

drawingview->Damagcd(); 

drawing->SetFgColor(fgcolor); 

drawingvicw->Damagcd(); 

drawingview->Rq)airO; 

) 


//Undo restores the Selections’ original foreground colors. 

void SetFgColorChange::Undo () ( 

drawingvicw*>EraseExccssHandles(oldsl); 

drawing->Select(oldsl); 

drawingvicw->Damaged(); 

drawing->SctFgColor(undofglist); 

drawingview->Damaged(); 

drawingvicw->R^air(); 

I 

// Skew comments/code ratio to work around epp bug 
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// SetBgColoiChange stores the Selections’ original background colors 
// and the new background color to set. 

SetBgColorChange::SetBgColorChange (Drawing* d, DrawingView* dv.IColor* bg) 
: ChangeNodc(d, dv) 1 
bgcolor = bg; 

undobglist = drawmg->GetBgColorO; 

}. 

// Free storage allocated for the list of original colors. 

SctBgColorChange::'“SetBgColorChange () { 
delete undobglist; 

I 

// Do sets the Selections' new background color. 

void SetBgCoiorChangc: J)o () { 

drawingview->ErascExcessHandles(oldsl); 

drawing->Select(oldsl); 

drawingview->Damagcd(); 

drawing->SctBgColor(bgcolor); 

drawingview->Damagcd(); 

drawingview->Repair(); 

1 

// Undo restores the Selections' original background colors. 

void SetBgCoIorChangc;:Undo () ( 

drawingview->£raseExcessHandles(oldsl); 

drawing->Sclect(oldsl); 

drawingview->Damagcd(); 

drawing->SetBgColor(undobglist); 

drawingview->Damagcd(): 

drawingview->Repair(); 

) 

// SetFontChange stores the Selections' original fonts and 
// the new font to set. 

SetFontChange::SetFontChange (Drawing* d, DrawingView* dv, IFont* 0 
; ChangeNode(d, dv) { 
font = f; 

undofontlist« drawing->GetFontO; 

} 


// Free storage allocated for the list of original fonts. 

SetFontChange^-SetFontChangc () { 
delete undofontlist; 

1 

// Do sets the Selections' new font 

void SetFontChange::Do () { 

drawingvieW'>EraseExce55Handles(oldsl); 

drawing->Sclcct(oldsl); 

drawingview->Damagcd(); 

drawing->SetFont(font); 

drawingview->Daniaged(); 

drawingvicw->Repair(); 

I 


// Undo restores the Selections' original fonts. 

void SetFontCliange::Undo () { 

drawingview->EraseExccssHandles(oldsl); 

drawing->Select(oldsl): 

drawingview->Damaged(); 

drawing->SetFont(undofontlist); 

drawingview->Damaged(); 

drawingview->RepaiK); 

) 

H SetPattemChange stores the Selections' original patterns and the 
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// new pattern to set. 


SetPattemChange::SctPattemChangc (Drawing* d, DrawingView* dv, IPattem* pat) 
: ChangcNodc(d, dv) ( 
pattern = pat; 

undopattcmJist« drawing->GetPattcmO; 

} 


// Free storage allocated for the list of original patterns. 

SetPattemC!hange::~SetPattemC!hange () { 
delete undopattemlist; 

} 

// Do sets the Selections' new pattern. 

void SetPattemChangc::Do () { 

drawingvieW'>£raseExcessHandles(oldsl); 

drawing->Select(oldsl); 

drawing'>SetPattem(pattem); 

drawingview->Damaged(); 

drawingview->R^air(); 

I 


//Undo restores the Selections' original patterns. 

void SctPattemChangc::Undo () | 

drawingview->£raseExcessHandles(oldsl); 

drawing*>Select(oldsl); 

drawing>>SetPattem(undopattemlist); 

drawingview->Daniaged(); 

drawingview->RcpaifO; 

1 


// AddCThange knows it hasn't done its change yet. 

AddChange::AddChange (Drawing* d, DrawingView* dv): ChangeNode(d. dv) | 
done = false: 

I 

// Free storage allocated for the Selections if AdddThange 

// never add^ them to the Drawing. 

AddChange::~AddChangc () { 
if (Idone) ( 

for (olds!->Hrst(); !olds!->AtEnd(): oldsl->Ncxt()) { 

Selection* s = oldsl->GetCurO->GctSclection(): 
delete s; 


I 

// Do appends the Selections to the Drawing. 

void AddChanget’Do Q { 

drawingview->EraseHandles(); 

drawing'>Select(oldsl); 

drawing->Appcnd(); 

drawingvicw->Added(); 

drawingview->Rcpair(); 

done =s true; 

} 

// Undo removes the Selections from the Drawing. 

void AddChange::Undo () { 

drawingview->ErascExcessHandlcs(oldsl); 

drawing->Select(oldsl); 

drawingview->Damaged(); 

drawing->Remove(); 

drawing->ClearO; 

drawingview->R^aiK); 

done B false; 

I 

// DeleteC!!hange stores the Selections' predecessors. 
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Delet«Change::DeleteChange (Drawing* d, Drawing View* dv): 
(ThangcNodcCd, dv, true) { 
prevlist sf drawing->GetPrevs(); 
done as false; 

1 

// Free storage allocated for the Selections if DcleteChange 
// removed them from the Drawing. 

DeleteChange::-DcleteChange 0 { 
delete prevlist; 
if (done) { 

for (oldsl->First(); !oIdsl->AtEnd(); oldsI->Next()) { 

Selection* s = oldsl->GctCurO->GetSeicction(); 
delete s; 

) 

} 

} 


// Do removes the Selections from the Drawing. 

void DeleteC^hangcrrDo 0 ( 

drawingview->EraseExccssHandles(oldsl); 

drawing->Select(oldsl); 

drawingview->Damagcd(); 

drawing“>Remove(); 

drawing->Clear(); 

drawingview->Repair(); 

drawingview->DrawO; 
done = true; 

i 

// Undo puts the Selections back where they came from in the Drawing. 

void DelcteChangc::Undo 0 { 

drawingview*>ErascExcessHandlcs(oldsl); 

drawing->Selcct(oldsl): 

drawing->InsertAfterPrev(prevlist); 

drawingview->DamagcdO; 
drawingview->RcpaiK); 
done s false; 

} 

// CutChangc passes its arguments to its DcleteChange constructor. 

CutChangc::CutChange (Drawing* d, DrawingView* dv): DeleteChangc(d, dv) { 

1 


// Do removes the Selections from the Drawing and writes them to the 
// clipboard file, overwriting the clipboard file's previous contents. 

void CutChangc: :Do 0 { 

drawingview->EraseExcessHandles(oldsl); 

drawing->ScIcct(oldsI); 

drawing->WriteCiipboard(); 

DcleteChange: ;DoO; 

} 


// CopyChange must sort the Selections. 

CopyChangc::Copy(hangc (Drawing* d, DrawingView* dv): 
(hangcNode(d, dv, true) { 

) 

// Do writes the Selections to the clipboard file, overwriting 
// whatever was there previously. 

void CopyChangc::Do 0 1 

drawingview->EraseExcessHandlcs(oldsl); 

drawing->Select(oldsl); 

drawing->WritcClipboard(); 

I 

// PasteChange reads the clipboard file and stores the clippings for 
// pasting into the Drawing later. 
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PasteChangerPasteChange (Drawing”' d, DrawingX^ew* dv. State”* state) 
; AddChange(d, dv) { 
delete oldsl; 

olds) * drawing->ReadClipboard(state); 

} 


// DuplicateChange stores duplicates of the picked Selections for 
// pasting into the Drawing later. 

DuplicateChange: J>uplicatcChangc (Drawing* d, DrawingView* dv): 
AddChangc(d, dv) { 
drawing->SortO; 

delete oldsl; 

oldsl = drawing->GetDuplicatcsO; 

) 

// GroupChange stores the Selections' new parent and their 
// predecessors. 

GroupChange;:GroupChange (Drawing* d, DrawingView* dv): 
ChangeNode(d, dv, true) { 
grouplist drawing‘>GetParCTit(); 
prevlist« drawing->GetPrevs(): 
done * false; 

) 


// Delete frees storage allocated for the Selections' new parent if 
// they never end up grouped under it and the lists themselves. 

GroupChange::'-GroupChange 0 { 
if (Idone) { 

for (grouplist->First(); !grouplist->AtEnd(); ^uplist->Next()) { 
PictSelection* s * grouplist->GetCur()->GetParait(); 
delete s; 


delete grouplist; 
delete prevlist; 

} 

// Do groups the Selections under their parent. 

void GroupChange::Do () { 
drawingview->EraseHandles(); 
drawing->Group(grouplist); 
drawingview->Damaged(); 
drawingview->Repair(); 
done * true; 

1 

// Undo ungrov^js the Selections and puts them back where they came 

// from in the Drawing. 

void GroupChangc::Undo Q I 
drawingview->ErascHandles(); 
drawing->Ungroup(grouplist); 
drawing->RCTnoveO; 
drawing->InsertAfterPrcv(prevlist); 
drawingview->Dainaged(); 
drawingview->R^air(); 
done = false; 

1 

// UngroupChange stores the Selections' children. 

UngroupChangc::UngroupChangc (Drawing* d, DrawingView* dv): 

ChangcNodc(d, dv, true) { 

undogrouplist * drawing->GctChildren(); 
done B false; 

I 

// Delete frees storage allocated for the Selections if they were 

// ungrouped and for the list itself. 

UngroupChange:;~UngToupChange () j 
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if (done) { 

for (undogrouplist->KistO; !undogrouplist->AtEndO; 
undogrouplist->Next()) 

I 

boolean haschildren *undogroi^list->GetCur()->GetHasChildrenO; 
if (haschildrcn) { 

PictSelection* s = undogrouplist->GctCur()->GetParcnt(); 
delete s; 

} 

I 

I 

delete undogrouplist; 

1 


// Do replaces all Selections which contain childroi with their 

// children. 

void Ungroiq)C^ange: J)o () { 
drawingview->EraseHandles(); 
drawing->Ungroup(undogrot^list); 
drawingview->RedrawHandlcs(); 
done * true; 

} 

// Undo regroups each set of children under their former parents. 

void UngroupChange::Undo () { 
dTawingview<>EraseHandles(); 
drawing'>Group(undogrouplist); 
drawingview->RcdfawHandlcs(): 
done s false; 

1 

// Skew commcnts/code ratio to work around cpp bug 


// BringToFrontChangc stores the Selections’ predecessors. 

BringToFrontChange:*3ringToFrontChange (Drawing* d, DrawingView* dv) 
: ChangeNode(d, dv, true) | 
prevlist« drawing->GetPrevsO; 

I 

// Delete frees storage allocated for the Selections' predecessors. 

BringToFrontChange:>BringToFrontChange 0 I 
delete prevlist; 

I 


// Do brings the Selections to the front by rraioving them from and 
// ^pending them to the Drawing. 

void BringToFront(rhange::Do () { 
drawingview->ErascHandles(); 
drawing->Select(oldsl); 
drawing->RcmovcO; 
drawing->Appcnd(); 
drawingview->AddedO; 
drawingview->Rcpair(); 

} 


// Undo puts the Selections back where they came from in the Drawing. 

void BringToFrontChange::Undo 0 I 

drawingvicw->EraseExcessHandles(oldsl); 

drawing->Select(oldsl); 

drawing->Rcmove(); 

drawing->InscrtAfterPrcv(prevlist); 

drav/ingview->Damaged(); 

drawingvicw->RcpaiK); 

I 


// ScndToBackChange stores the Selections’ predecessors. 
Scn<froBackQiangc::Sen(froBackChange (Drawing* d, DrawingView* dv) 
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: ChangcNode(d, dv, trae) { 

prevlist = drawing->GrtPrevs(); 

I 

// Delete frees storage allocated for the Selections' predecessors. 

SendToBackChangc::"ScndToBackChange 0 { 
delete prevlist; 

} 


// Do sends the Selections to the back by removing them from and 
// prepending them to the Drawing. 

void SendToBackChange:JDo () { 

drawingview->EraseExccssHandles(oldsl); 

drawing->Select(oldsl); 

drawing->Remove(); 

drawing->PrepCTid(); 

drawingview->Damaged(); 

drawingview->Repair(); 

1 


// Undo puts the Selections back where they came from in the Drawing. 

void SendToBackQiangc::Undo () { 

drawingview->EraseExccssHandles(oldsl); 

drawing->Select(oldsl); 

drawing->Remove(); 

drawing->InsatAfterPrcv(prevlist); 

drawingview->DamagedO; 

drawingview->Rq)aif(); 

} 

// AlignChange stores the Selections' original positions and their 

// desired alignments. 

AlignChange::AlignChange prawing* d, DrawingView* dv, Alignment fix. 

Alignment move): ChangeNode(d, dv) { 
falign-fix; 
malign « move; 

centeriist * drawing*>GctCenterO; 

1 

// Delete frees storage allocated for the list of original positions. 

AlignChange:;'-AlignChange () { 
delete centeriist; 

) 


// Do aligns the Selections. 

void AlignChangc:Do 0 I 

drawingvicw->EraseExccssHandlcs(oldsl); 

drawing->Sclect(oIdsI); 

drawingyiew->Damagcd(); 

drawing->Align(falign, malign); 

drawingvicw->Damagcd(); 

drawingvicw->Repair(); 

} 


// Undo moves the Selections to their original positions. 

void AlignChange::Undo () { 

drawingyicw->EraseExccssHandles(oldsl); 

drawing->Select(oldsl); 

drawingview->Daniaged(); 

drawing->SetCcnter(centcrlist); 

drawingvicw->Damaged(); 

drawingview->Repair(): 

I 

// AlignToGridChange stores the Selections' original positions. 

AlignToGridChangc::AIignToGridChangc prawing* d, DrawingView* dv) 

ChangeNodefd, dv) { 

centeriist« drawing->GetCentcrO; 



) 


// Delete frees storage allocated for the list of original positions. 

AlignToGridChange::-AlignToGridChange () { 
delete coiteriist; 

} 


//Do aligns the Selections* lower left comers to the nearest grid 

//point 

void AlignToGridChangc::Do 0 ( 
drawingview->Erase£xcessHandle$(oldsl); 
drawing->Sclect(oldsl); 
drawingview->Damagcd(); 
dra wi ng->Ali gnTo G ri d(); 
drawingview->Damaged(); 
drawingview->Rq)air(); 

I 

// Undo moves the Selections to their original positions. 

void AlignToGridChange;;Undo () [ 

drawingvicw->EraseExccssHandlcs(oldsl); 

drawing->SeIcct(oldsl); 

drawingview->Damagcd(); 

drawing->SetCaiter(centerlist); 

drawingview->Damaged(); 

drawingvicw->R^air(); 

} 


listgroup.h 


#ifhdcf listgroup_h 
#dcfinc listgroup_h 

#inciudc "listh" 

// Declare imported types. 

class PictSelection; 
class SelectionList; 

// A GroupNode contains a PictSelection pointer, a boolean value, and 
//two SelectionList pointers. 

class GroupNode : public BaseNode ( 
public: 

GroupNode(PictSclcction*, boolean, SelectionList*); 

-GroupNodeO; 

PictSelection* GetParent 0 I return parent; } 
boolean GetHasChildroi 0 ( return haschildren; | 

SelectionList* GetChildrai Q ( return children; } 

SelectionList* GetChildr^GS Q { return childrengs; } 

protected: 

PictSelection* parrot;//contains a Selection which may have children 
boolean haschildrro;// true if this parrot has children 
SelectionList* children;// lists the parrot’s children, if any 
SelectionList* childrengs;// stores the children's orig. graphic states 


I; 


// A GroupList manages a list of GroupNodes. 

class GroupList: public Basd^ist { 
public: 


GroupNode* FirstQ; 
GroupNode* LastQ; 
GroiqjNode* PrevQ; 
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GroupNode* NextQ; 
GroupNode* GetCurQ; 
GroupNodc* Indcx(int); 


I; 


// Cast these functions to return GroupNodcs instead of BaseNodes. 

inline GroupNode* GroupListi^iist () { 
return (GroupNode*) BaseList::First(); 

} 

inline GroupNode* GroupList::Last 0 { 
return (GroupNode*) BaseList::LastO; 

1 

inline GroupNodc* Groi:^List:*J*rev () { 
return (GroupNode*) BaseList::Prev(); 

I 


inline GroupNodc* Groi^List: J^ext Q { 
return (GroupNodc*) BascList::NextO; 

) 


inline GroupNode* GroupList::GetCur 0 { 
return (GroupNodc*) BascList::GetCurO; 

1 


inline GroupNode* GroupList::Index (int index) { 
return (GroupNode*) BascList;index(index); 

} 

#radif 


listgroup.c 


#include "listgroup.h" 

#include ’'listselectn.h'’ 

#include "selection.h'* 

// GroupNode stores the parent, boolean value, children, and the 
// children’s original graphic states. 

GroupNode::GroupNode (PictSelection* p, boolean h, SelectionList* si) { 
parent = p; 
haschildren » h; 
children « new SelectionList; 
cbildrengs » new SelectionList; 
for (sl->First(); Is!->AtEndO; sI->NextO) I 
Selection* child = sl->GctCur()*>GctSclcctionO; 

Selection* childgs » new Selection(child); 
children->Appcnd(new SelcctionNode(child)); 
childrengs*>Appaid(new SelectionNode(childgs)); 

} 

I 


// Free storage allocated to list the childrra and allocated 
// for their graphic states. 

GroupNode::~GroupNodc 0 ( 
delete children; 

for (childrengs->First(); Ichild[raigs->At£ndO; childrcngs->NcxtO) | 
Selection* s « childrcngs->GctCur()->GctSelcctionO; 
delete s; 

1 

delete childrcngs; 

} 


Ustibrush.h 

tifindef listibrush_h 
#define listibrush_h 


#inc)ude "listh” 
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ft Declare imported types, 
class IBrush; 

// An IBrushNode contains an IB rush pointer. 

class IBrushNode: public BaseNode { 
public: 

IBrushNode (IBrush* b) ( brush = b; ) 

boolean SameValueAs (void* p) { return brush ==p; } 

IBrush* GetBiush 0 { return brush; } 

protected: 

IBrush* brush;// points to an IBrush 


I; 


// An IBmshList manages a list of IBrushNodes. 

class EBrushList: public BaseList { 
public: 

IBrushNode* First(); 

IBrushNode* Last(); 

IBrushNode* Prev(); 

IBrushNode* Ncxt(); 

IBrushNode* GetCuK): 

IBrushNode* Index(int); 


I; 


// Cast these functions to return IBrushNodes instead of BaseNodes. 

inline IBrushNode* IBrushList: JRrst () { 
return (IBrushNode*) BaseList: Jnrst(); 

} 


inline IBrushNode* IBrushIist:Xast Q { 
return (IBrushNode*) BaseList:l^stO: 

1 

inline IBrushNode* IBrushlist::Prev 0 ( 
return (IBrushNode*) BaseDst::PrevO; 
I 

inline IBrushNode* IBrushList::Next () ( 
return (IBrushNode*) BascUst: J^extQ; 

I 


inline IBrushNode* IBrushIist::GetCur () { 
return (IBrushNode*) BaseList::GetCuK); 

I 

inline IBrushNode* IBmshList:index (int index) { 
return (IBrushNode*) BaseList::lndex(index); 

1 


#endif 

llsdcolor.h 

#ifiidef listicolor_h 
#define listicolor_h 

#include "listh" 

// Declare imported types. 

class IColon 

// An IColorNode contains an IColor pointer. 

class IColorNode : public BaseNode { 
public: 


IColorNode (IColor* c) { color » c; } 

boolean SamcValueAs (void* p) { return color =« p; } 

IColor* GetColor () { return color, } 

protected: 

IColor* color,// points to an IColor 


// An IColorList manages a list of IColorNodes. 

class IColorList: public BaseList { 
public: 

IColorNode* First(); 

IColorNode* LastQ; 

IColorNode* PrcvQ; 

IColoriSlode* NcxtO: 

IColorNode* GetCurO; 

IColorNode* Index(int); 


// Cast these functions to return IColorNodes instead of BaseNodes. 

inline IColorNode* IColorList:;First {) ( 
return (IColorNode*) BaseList::FirstO; 

} 

inline IColorNode* IColorList: :Last () | 
return (IColorNode*) BascList::Last(); 

} 

inline IColorNode* IColorList::Prev () | 
return (IColorNode*) BaseList: J*rcv(); 

I 

inline IColorNode* IColorList: J^ext 0 { 
return (IColorNode*) BaseList:d^extO; 

I 


inline IColorNode* IColorList: :GetCur 0 { 
return (IColorNode*) BascLtst::GetCur(): 

1 

inline IColorNode* IColorList::Index (int index) { 
return (IColorNode*) BaseList::Index(index); 

I 


#endif 


listifonth 


#i&idef listifont_h 
#define listifont_h 

#include "list-h" 

// Declare imported types. 

class IFont; 

// An IFontNode contains an IFont pointer. 

class IFontNode : public BaseNode ( 
public: 

IFontNode (IFont* 0 { font *= f; } 

boolean Same^^lueAs (void* p) { return font = p;} 

IFont* GetFont () { return font; } 


protected: 



IFont* font;// points to an IFont 


); 


// An IFontList manages a list of IFontNodes. 

class IFontList; public BaseList ( 
public: 

IFontNodc* FifStQ; 

IFontNode* LastQ; 

IFontNodc* Ppev(): 

IFontNodc* Ncxt(); 

IFontNodc* GetCur(): 

IFontNode* Indcx(int); 


); 


// Cast these functions to return IFontNodes instead of BaseNodes. 

inline IFontNodc* IFontLisl;;First Q I 
return (IFontNode*) Basd^ist: JnrstQ; 

I 

inline IFontNodc* IFontListrLast () { 
return (IFontNode*) BaseList::LastO; 
i 

inline IFontNode* IFontList::Prcv 0 { 
return (IFontNode*) BaseList:;PrcvO; 

} 


inline IFontNodc* IFontList::Next 0 { 
return (IFontNodc*) BaseList: J'JcxtO; 

} 


inline IFontNode* IFontList::GetCur 0 { 
return (IFontNode*) BaseList::GetCurO; 
I 


inline IFontNode* IFontList:*index (int index) { 
return (IFontNode*) Basd^ist::lndex(index); 

I 

#cndif 


iistintrctr.h 

#ifhdcf listintrctr_h 
#define listinlrclr_h 

#include "lisLh" 

// Declare imported types. 

class Interacton 

// An InteractorNode contains an Interactor pointer. 

class InteractorNode: public BaseNode { 
public: 

InteractorNode (Intcractor* i) { interactor * i; ) 
boolean SameValucAs (void* p) | return intcractor ** p; ) 
Intcractor* Getlntcractor 0 ( return intcractor; } 

protected: 

Intcractor* intcractor;// points to a Interactor 

I; 


// An InteractorList manages a list of InteractorNodes. 

class InteractorList: public BaseList { 
public: 


InteractorNodc* FirstQ; 
InteractorNode* LastQ; 
InteractorNodc* PrevQ; 
InteractorNodc* NextQ; 
InteractorNodc* GetCuK); 
InteractorNodc* Index(int); 


// Cast these functions to return InteractorNodes instead of 

// BaseNodes. 

inline InteractorNodc* Interactorlist::First () { 
return (InteractorNodc*) BascList::RistO; 

1 

inline InteractorNodc* InteractorlistrXast 0 { 
return (InteractorNodc*) BaseList::LastO; 

I 

inline InteractorNodc* IntcractorList: J*rcv () { 
return (InteractorNodc*) BaseList::PrcvO; 

I 


inline InteractorNodc* lntcractorList::Next () { 
return (InteractorNodc*) BascUst::Ncxt(); 

} 


inline InteractorNodc* IntcractorList::GetCur 0 { 
return (InteractorNodc*) BascList::GctCur(); 

I 


inline InteractorNodc* InteractorList::Index (int index) { 
return (InteractorNodc*) BaseList::Index(index); 

} 

#cndif 


iistipattern.h 

fifndef listipattcm_h 
#define listipattem^h 

#inc]ude "listh" 

// Declare inserted types. 

class IPattem; 

// An IPattcmNodc contains an IPattem pointer. 

class IPattemNode: public BaseNode { 
public: 

IPattemNode (IPattem* p) { pattern « p; } 

boolean SamcValucAs (void* p) { return pattern =p; } 

IPattem* GetPattem 0 ( return pattern; ) 

protected; 

IPattem* pattern;// points to an IPattem 


// An IPattemList manages a list of IPattcmNodcs. 

class IPattemList: public BaseList { 
public; 

IPattemNode* Rrst(); 

IPattemNode* LastQ; 

IPattemNode* Prev(); 

IPattemNode* NextQ; 

IPattemNode* GetCurO; 

IPattemNode* Index(int); 



); 


// Cast these functions to return IPattemNodes instead of BaseNodes. 

inline IPattcmNode*IPattcmList:Jnrst () { 
return (IPattemNode*) BascList::FirstO; 

1 


inline IPattemNode* IPattemList::Last 0 I 
return (IPattemNode*) BaseList:d^st(); 

} 

inline IPattemNode* IPattemList::Prev () { 
return (IPattemNode*) BaseList::PrcvO; 

} 


inline IPattemNode* IPattemList::Ncxt () { 
return (IPattemNode*) BaseList:J^cxt(); 

) 

inline IPattemNode* IPattcmList::GctCur () { 
return (IPattemNode*) BaseUst::GetCurO; 

) 

inline IPattemNode* IPattemList::Index (int index) | 
return (IPattemNode*) BaseList:index(index); 

} 


#cndif 


listselectii.h 

#ifodef listselectn_h 
#dcfine listselectn_h 

#includc "listh" 

// Declare imported types. 

class Selection; 

// A SelectionNode stores a pointer to a Selection. 

class SelectionNode: public BaseNode { 
public: 

SelectionNode (Selection* s) { selection « s; } 
boolean SameValucAs (void* p) { return selection = p; } 
Selection* GetSelcction 0 I return selection; } 

protected: 

Selection* selection;// points to a Selection 


); 


// A SelectionList manages a list of SelectionNodes. 

class SelectionList: public Baselist { 
public: 

SelectionNode* Rrst(); 

SelectionNode* Lastf); 

SelectionNode* Prev(): 

SelectionNode* NextQ; 

SelectionNode* GetCurQ; 

SelectionNode* Index(int); 


// Cast these functions to return SelectionNodes instead of BaseNodes. 

inline SelectionNode* SclcctionList:dFirst Q { 
return (SelectionNode*) BaseList::FirstO; 
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inline SelectionNode* SelectionList::Last () { 
return (SelectionNode*) BaseListriastO; 

I 


inline SelectionNode* SelcctionList: J^rcv () { 
return (SelectionNode*) BascList::Prcv(); 

I 

inline SelectionNode* SclcctionList;:Next () | 
return (SelectionNode*) BaseList::Next(); 

I 

inline SelectionNode* SelectionList::GetCur Q I 
return (SelectionNode*) BaseLisl::GctCur(); 

I 


inline SelectionNode* SelectionListrJndcx (int index) { 
return (SelectionNode*) BaseList::Index(indcx); 

) 

#€aidif 


main.c 


#include "idraw.h'‘ 

#include <InterViews/worlddi> 

// Predefine default properties for the window size, paint menus, and 
// history. 

static PropertyData propcrties[] * ( 

{ ’'*fontl","*-courier*medium-r>*-80-* Courier 8" }, 

I "*font2","*-couricr-mcdium-r-*-100-* Courier 10" }, 

I "*font3","•-cou^ic^bold•r-•-120-• Courier-Bold 12" }. 

I ”*font4'',"*-hclvetica-medium-^*-120•* Helvetica 12" }, 

I "*font5",‘'*-helvctica-medium-r-*-140-* Helvetica 14" |, 

{ "*font6","*-helvetica-bold-r-*-140-* Helvetica-Bold 14" ), 

I "*font7","*-helvetica-medium-o-*-l40-* Helvetica-Oblique 14" 
{ "*font8","*-timcs-medium-r-*-120-* Times-Roman 12" |, 

( "*font9","*-times-modium-r-*-140-* Times-Roman 14" }. 

{ "*fontl0","*-times-bold-r-*-140-* Times-Bold 14" (, 

( "*fontU","*-times-mcdium-i-*-l40-* Timcs-Italic 14" 

1 "*brushr’, "fnT2 0 1" |, 

{ "*brush2","fnn0l" }, 


// These brush types are not needed for a data flow diagram 

/* ***** Start of Commented Out Code***** 

( "*bmshr',"none" }, 

{ "*bmsh2","fffT 10 0" ), removed all brush types except for 
{ "*bmsh3","fnT 1 1 0" the type that has as its first end 
{ "*bmsh4","ffff 1 0 1" |, endpoint the end without the arrow 
{ *‘*brush5","ffff 111"), head and it's second or last end 
{ "*brush6","3333 1 0 0" |, point is the end with the arrowhead 
{ "*brushTV3333 2 0 0" |, 

I "*brush8","ffff2 0 0" |, 

•••** End of Comments Out Code ***** */ 

{ "*pattemr',"none" }, 

{ "*pattem2","0.0" ), 

1 "*pattcm3",'T.O" }, 

I "*aiTOwpattcml","none" |, 

{ "*arrowpattcm2","0,0" ), 

{ "*arrowpattcm3","1.0" ), 

// These patterns arc not needed for a data flow diagram 

/* ***** Start of Commented Out Code *•••* 

{ ***pattem4","0.75" |, 

{ "•pattcm5","0.5" |, 

1 "*pattcm6","0.25" |, 

( ‘'*pattem7'V'1248" ), 

1 "•pattcm8","8421" 

I "•patlem9","ro00" ), 




{ "*pattemlO","8888'' ), 

{ "*pattemir',"f888" ), 

{ "*pattcinl2","8525" }, 

{ "*pattcml3","cc33" ), 

( "*pattcml4","7bcd" ), 

**♦*• End of Commented Out Code **•♦* ♦/ 


{ ”*fgcolorl "/'Black" ), 

{ "*fgcolor2","Brown 42240 10752 10752" }. 

( "*fgcolor3","Rcd" }, 

I "♦fgcolor4"/’Orange" ), 

{ "*fgcolor5","YcIlow" }, 

{ "^fgcolor6","Green" }, 

{ "*fgcoIor7","Bluc" ), 

{ "*fgcolor8","Indigo 48896 0 65280" }, 

I "♦fgcolor9",‘Violct20224 12032 20224" ), 

I "*fgcolorl0","White" ), 

{ "*fgcolorll","LtGray 50000 50000 50000" }, 

{ "*fgcoIorl2",'T)kGray 33000 33000 33000" 

{ "*bgcolorl"/'Black" }, 

{ "•bgcolor2"/'Brown 42240 10752 10752" }. 

{ "*bgcolor3"/'Rcd" }, 

{ "*bgcolor4"."Orange" }, 

{ "*bgcolor5"/'Ycllow" }, 

{ "*bgcolor6"/'Grecn" }, 

{ "•bgcolor7"/'Blue" |, 

{ "*bgcolor8"/1ndigo 48896 0 65280" }, 

{ "*bgcoloi9"/’Violet 20224 12032 20224" |. 

{ "*bgcolorl0"/'Whitc" ), 

{ "*bgcolorll"/’LtGray 50000 50000 50000" }, 

( "*bgcolorl2"/'DkGray 33000 33000 33000" }. 
( "♦initialfont"/'2" }, 

{ "*initialbrush"/'l" }, 

{ "*initialpattcm"/'3" }, 

{ "♦initialarrowpattem", "2" }, 

{ "•initialfgcolor"/'!" }. 

{ "•initialbgcolor"/'10" }, 

I "•histoiy"/'20" ), 

{ "•reverscVidco"/'off'), 

{ "•small"/’true" }, 

{ "*geomctry", "+10+10"|, 

I nil } 


// Define window size options. 

static OptionDesc options[] = ( 

I "-1", "*smair'. OptionValueimplicit, "false" ), 
( "-s", "*801311", OptionValucImplicit, "true" |, 
{nil I 

I; 


// main creates a connection to the display server, creates idraw, and 
// opens idraw's window. After idraw stops running, main closes 
// idraw's window, deletes everything it created, and returns success. 

int main (int arge, diar** argv) { 

World* world « new Worid('ldraw", properties, options, arge, argv); 
Idraw* idraw « new Idraw(aigc, argv); 

world->lnscrtApplication(idraw); 

idraw*>Run(); 

world->Remove(idraw); 

delete idraw; 
delete world; 

const int SUCCESS = 0; 
return SUCCESS; 

I 


maplpainth 

#i&idef mapipaint_h 
#define mapipaint_h 


tinclude ^terViews/defsii> 


// Declare imported types. 


class BaseList; 
class BaseNodc; 
class IBrush; 
class IBrushList; 
class IColor; 
class IColorList; 
class IFont; 
class IFontList; 
class IPattem; 
class IPattemList; 
class Interactor; 

// A MapIPaint creates a list of predefined and user-defined entries. 

class MapIPaint { 
protected: 

void Init(BaseList*, Interactor*, const char*); 
void DefineEntrics(BascList*, Interactor*, const char*); 
void DefineInitial(Interactor*, const char*); 
virtual BaseNode* Creat^ntry(const char*); 

int initial;//denotes which o)try is used on startup 


// A MapIBrush manages a list of predefined and user-defined brushes. 

class MapIBmsh : public MapIPaint { 
public: 

MapIBrush(Intcractor*, const char*); 

-\4pIBrush(): 

int SizeO; 
boolean AtEndQ; 

IBrush* Fiist(): 

IBrush* LastO; 

IBrush* PrevQ: 

IBrush* NextQ: 

IBrush* GetCurO; 

IBrush* Index(int); 
boolean Find(IBrush*); 

IBrush* GetlnitialO: 

IBrush* FindOrAppcndCboolcan, int, int, int, int); 
protected: 

BaseNodc* CrcatcEntry(const char*); 

IBrushList* ibmshlist; // stores idraw's IBrushes 


1 ; 


// A MapIColor manages a list of predefined and user-defined colors. 

class MapIColor: public MapIPaint { 
public: 

MapIColor(Intcractor*, const char*); 

-MapIColorO; 

int SizeO; 
boolean AtEndQ; 

IColor* firstO; 

IColor* LastO; 

IColor* PrevO: 

IColor* NextO; 

IColor* GetCurO; 

IColor* Indcx(int); 
boolean Find(IColor*); 

IColor* GetlnitialO; 





IColor* FindOrAppend(const char*, int, int, int); 
protected: 

BaseNodc* CrcateEntry(const char*); 
IColorList* icolorlist; // stores idraw's IColors 


// A MapIFont manages a list of predefined and user-defined fonts. 

class MapIFont: public MapIPaint { 
public: 

MapIFont(Intcractor*, const char*); 

-MapIFontO; 

int Sizc(); 
boolean At£nd(); 

IFont* FirstO; 

IFont* Last(): 

IFont* PrevO: 

IFont* Ncxt(); 

IFont* GetCurO; 

IFont* Index(int): 
boolean Find(IFont*); 

IFont* GetInitialO: 

IFont* FindOrApp«id(const char*, const char*, const char*); 
protected: 

BaseNodc* CreateEntry(constchar*); 

IFontList* ifontlist; // stores idraw's IFonts 


// A MapIPattem manages a list of predefined and user-defined 
// patterns. 

class MapIPattem : public MapIPaint { 
public: 

MapIPattemCIntcractor*. const char*); 

-MapIPattemO; 

int Size(); 
boolean AtEndQ; 

IPattem* FirstQ; 

IPattem* LastQ; 

IPattem* PrcvQ; 

IPattem* NextQ; 

IPattem* GetCuK): 

IPattem* Index(int); 
boolean Find(IPattcm*); 

IPattem* GetInitialO; 

IPattem* FindOrAppaid(boolean, float, int*, int); 
protected: 

BaseNodc* CrcateEntry(const char*); 
int CalcBitmapffloat); 

void ExpandToFullSize(int*, int); 

IPattemlist* ipattemlist; // stores idraw’s IPattems 


1 ; 


#cndif 


mapipaintc 


#include "ipaint.h" 

#include "istring-h" 

#includc "listibrush.h" 

#include "listicolonh'' 

#include "listifonth" 

#include "listipattcm.h" 

#include "mapipainth" 

#include <InterViews^tcractor.h> 
finclude <bstring.h> 
tinclude <strcamJi> 

// Init creates the list's entries, initializes the number denoting 
// the initial entry, and ensures both list and initial are valid. 

void MapIPaint::Init (BaseList* list, Intcractor* i, const char* menu) { 
DefincEntries(list, i, menu); 

Definelnitial(i, maiu); 
if (Iist->Size() = 0) { 

fprintffstderr, "No entries in %b menu,", menu); 
fprintf(stderr, "creating a default cntryNn"); 
list->Append(CrcateEntry(nil)); 

I 

if (list->Index(initial-l) =* nil) { 
fprintffstderr, "No attribute at %s entry ", menu, initial); 
fprintf(stderr, "setting initial attribute from first «itryVn"); 
initial ^ 1; 


// DefineEntries reads predefined or user-defined attributes and 
// creates entries in the list from these attributes. It retrieves 
// each attribute using the concatenation of the m«iu's name and a 
// number which incronents from 1. The first undefined or empty 
// attribute terminates the menu's definition. 

void MapIPaint::DcfineEntries (BaseList* list, Intoactor* i, 
const char* menu) { 
char menuproperty[20]; 
intnum s 1; 

sprintf(menupropeity, menu, num); 

const char* attribute »i->GetAttribute(menuproperty); 
while (attribute 1= nil && strlen(attributc) > 0) | 

BascNode* entry = CrcatcEntry(attributc); 
if (entry != nil) { 

Iist->Appcnd(entry); 

} else ( 

fprintf(stdcrr, "couldn’t parse attribute for %s\n", menuproperty); 

I 


sprintf(mcnupropcrty, "%s%d", menu, ++num); 
attribute * i->GctAttribute(menupropcrty); 



// Definelnitial reads a predefined or user-defined attribute to 
// define the number denoting the initial entry. For example, 

// "idraw.initialfont: 2" sets the initial font from the second entry. 

void MapIPaint::DcfineInitial (Intcractor* i, const char* menu) { 
char propcrtyf20]; 
sprintf(propcrty, "initial%s", menu); 

const char* def = i->GctAttributc(propcrty); 
char* definition » strdup(dcf); // some sscanfs write to their format., 
if (sscanffdefinition, "%d'\ &initial) !■=!)( 
initial = 2;// default if we can’t parse definition 
fprintf(stderr, "can't parse attribute for %s, ", property); 
fprintf(stdcrr, "value set to %<INn", initial); 

} 

delete definition; 

1 

// CrcatcEntry creates and returns an entry containing an attribute 
// defined by the given string. A subclass must impl^ent it 



BaseNode* MapIPaint::CreateEntry (const char^) { 
return new BaseNodc; 

} 

// Skew commeots/codc ratio to work around cpp bug 


// MapIBrush creates its brushes from predefined or user-defined 
// attributes. 

MapIBiush::MapIBrash (Intcractor* i, const char* motu) ( 
ibrushlist = new IBrushList; 
lnit(ibrushlist, i, moiu); 

I 


// -MapIBrush frees storage allocated for the brushes and the list 

MapIBrush:;-MapIBrush () { 
for (EBrush* brush =FirstO; !AtEnd(); brush = NextO) { 
delete bmsh; 

I 

delete ibrushlist; 

1 

// Implonent functions to give readonly access to the list 

int MapIBnish::Size 0 ( 
return ibrushlist->SizeO; 

) 

boolean MapIBrush; lAtEnd 0 { 
return ibrushlist->AtEnd(); 

} 


IBrush* MapIBrush:;Firsi () { 
return ibrushlist->First()->GetBrushO; 
I 

IBrush* MapIBrush:l^st () ( 
return ibrushlist->Last()->GetBrush(); 

} 

IBrush* MapIBrush:;Prev () | 
return ibrushlist->Prev()->GetBrushO; 
I 

IBrush* MapIBrush: J^ext () | 
return ibnishlist->NextO->GetBrushO; 

) 


IBrush* MapIBrush::GelCurO ( 

return ibrushlist->GetCurO->GetBrush(); 

1 

IBrush* MapIBrush::lndex (int index) { 

return ibrushlist->Index(index)->GctBrush(); 

1 

boolean MapIBrush:’Jnnd (IBrush* brush) { 
return ibrushlist->Find(brush); 

I 

IBrush* MapIBrush;:Getlnitial 0 { 

// remanber index « 0-base, initial * i-base 
return ibrushlist->Index(initial-l)->GetBrushO’. 

) 


// FindOrAppend checks if the list already has a brush with the same 
// attributes as the given attributes. If so, it returns the brush 
// already in the list; otherwise, it creates a new brush, appends it 
// to the list, and returns it. 

IBrush* MapIBrush::FindOrAppcnd (boolean none, int p, int w, int 1, int r) { 
IBrush* brush » nil; 
if (none) | 
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for (bmsh = FirstQ; !AtEnd(); brush = Ncxt()) { 
if (brush->None()) { 
return brush; 

1 

1 

brush B new IB rush; 

} else { 

for (brash = First();! AtEnd(): brush = Next()) { 
if (!brush->None() && 

brush->GetLinePattcmO *= p && 
brash->WidthO “ w && 
brash->LeftArTowO == I && 
biush->RightArrow() = r) 

I 

return brash; 


brash as new IBrush(p, w, 1, r); 

} 


ibrushIist->Appaid(new IBrushNode(bru$h)); 
return brash; 

) 


// CreatcEntry returns an «itry containing a brush created by parsing 
// the given definition or an entry containing a default brush if no 
// definition was given. The definition usually contains two numbers 
// and two booleans: a 16-bit hexadecimal number to define the brush's 
// pattern, a decimal integer to define the brush's width in pixels, 

// dther 0 or 1 to determine whether lines start from an arrowhead, 

// and eidier 0 or 1 to determine whether lines otd in an arrowhead. 

H One definition may contain the string "none" to define the 
// nonexistoit brush. I found out sscanf barfs if you put Ox before 
// the hexadecimal number so you can't do that. 

BaseNode* MapIBrush::CFeate£ntry (const char* deO { 
if (def — nil) | 
def-"frfn0 0"; 

I 

char* definition s strdup(def); // some sscanfs write to their format.. 

BaseNode* entry * nil; 
intp, w; 
boolean I, r, 

boolean none * (deftnition[0] = 'n' li definition[0] «'N'); 
if (none) { 

entry = new IBrushNode(new IBrush); 

I else if (sscanf(dcfinition. "%x %d %d %d'\ &p, &w, &I, &r) =4) { 
«itry = new IBrushNode(new [Brush(p, w, 1, r)); 

I 

delete definition; 
return entry; 

) 


// MapIColor creates its colors from predefined or user-defined 
// attributes. 

MapIColor::MapIColor (Intcractor* i, const char* moiu) { 
icoloriist = new IColorList; 

Init(icoloriist, i, mmu); 

I 

// -MapIColor frees storage allocated for the colors and the list 

MapIColor::-MapIColor 0 { 
for (IColor* color = FiistO; !AtEnd(): color = NcxtQ) { 
dclcie color, 

1 

delete icoloriist; 

} 


// Implement functions to give readonly access to the list 
int MapIColor;:Sizc () 1 
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return icolorlist->Sizc(); 


} 

boolean MapIColon:AtEnd 0 I 
return icolorlist->AtEnd(); 

I 


IColor* MapIColor:Jnrst Q I 
return icolorlist->Hrst()->GetColorO; 

} 


IColor* MapIColor::Last () { 

return icolorlist->Last()->GctColor(); 

) 


IColor* MapIColor:JVev Q I 
return icolorlist->Prev()->GctColorO; 

) 

IColor* MapIColor::Ncxt () { 

return icolorlist->NextO->GetColor(); 

} 


IColor* MapICoIor::GctCur () { 

return icolorlist->GetCur()->GetColor(); 

1 


IColor* MapIColorrJndex (int index) { 
return icolorlist->Index(index)->GctColorO; 
I 


boolean MapIColor: J'ind (IColor* color) | 
return icolorlist->Find(color); 

1 

IColor* MapIColor::GctInitial 0 ( 

// remember index = 0-base, initial = l-base 
return icolorlist->lndex(initial- l)->GetColor(); 

I 

// FindOrAppend checks if the list already has a color with the same 
// name as ^e given name. If so, it returns the color already in the 
// list; otherwise, it creates a new color, appends it to the list, 

// and returns it 

IColor* MapIColor:JFHndOrAppend (const char* name, int r, int g, int b) { 
IColor* color s* nil; 

for (color = KrstO; !AtEnd(); color = NextO) { 
if (strcmp(color->GctNamc(), name) == 0) { 
return colon 

1 

) 


color = new IColor(name); 

if (!color->ValidO) { 

delete color, 

color * new IColor(r, g, b, name); 
if (!color->ValidO) I 

fprintf(stderr, "invalid color name %s ", name); 
fprintf(stdciT, "and intensities %d %d %d,", r, g, b); 
fprintf(stderr, "substituting blackNn"); 
delete color, 

color « new IColor(black, name); 


) 

icoloriist->App«id(ncw IColorNodc(color)); 
return color, 

I 


// CreateEntry returns an entry containing a color created by using 
// the given name or an entry containing a default color if no name 
// was given. 

BaseNode* MapIColon:CreatcEntry (const char* deO I 
if (def *= nil) ( 
def-"Black"; 
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I 

char* definition « strdup(dcf); // some sscanfs write to their format.. 


IColor* color = nil; 
charname[100]; 
intr = 0, g = 0, b«0; 


if (sscanf(dcfinition, "%s %d %d %d", name, &r, &g, &b) = 4) { 
color = new IColor(r, g, b, name); 
if (!color->ValidO) { 

fprintf(stdcrr, ’’invalid intensities %d %d %d, ", r, g, b); 
fprintf(stderr, "using color name %s\n", name); 
delete color, 

color = new IColor(name); 
if(!color->Valid()){ 

fprintf(stderr, "invalid color name %s,", name); 
fprintf(stdcrr, "substituting black\n"); 
delete color, 

color = new IColor(black, name); 


} 

1 else if (sscanf(definition, "%s", name) — 1) { 
color = new IColor(name); 
if (!color->ValidO) { 

fprintf(stderr, "invalid color name %s, ", name); 
fprintf(stderr, "substituting blackNn"); 
delete color, 

color = new IColor(bIadc, name); 

) 

} 

delete definition; 

BascNode* entry = nil; 
if (color !«nil) ( 
entry - new IColorNode(color); 

1 

return entry; 

} 

// MapIFont creates its fonts from predefined or user-defined 
// attributes. 

MapIFont::MapIFont (Interactor* i, const char* menu) { 
ifontlist = new DFontList; 
lnit(ifontlisl, i, menu); 

I 

// -MapIFont frees storage allocated for the fonts and the list 

MapIFont::“MapIFont 0 I 

for (IFont* font = RrstQ; !AtEnd(); font = Ncxt()) { 
delete font; 

I 

delete ifontlist; 

I 


// Implement functions to give readonly access to the list 

int MapIFont::Sizc () ( 
return ifontlist->Sizc(); 

I 

boolean MapIFont::At£nd Q { 
return ifontlist->AtEnd(); 

I 

IFont* MapIFont:Jnrst 0 { 
return ifontlist->FirstO->GetFontO; 

I 

IFont* MapIFont:!^ () ( 

return ifontlist->Last()->GetFont(); 

I 

IFont* MapIFont: J*rev 0 I 
return ifontlist->Prev()->GetFontO; 



} 


IFont* MapIFont::Next () { 

return ifontlist->NextO->GctFont(); 

} 

IFont* MapIFont::GctCur () { 
return ifontlist->GctCur()->GetFont(); 

I 

IFont* MapIFont::Index (int index) { 

return ifontlist->Indcx(index)->GetFontO; 

) 


boolean MapIFont::Find (IFont* font) { 
return ifontlist->Find(font); 

} 


IFont* MapIFont::GetInitial () { 

// ramranber index * 0-base, initial ** 1-base 
return ifontlist->lndex (initial-1 )->GetFont(); 

) 


// FindOrAppend checks if the list already has a font with the same 
// attributes as the given attributes (except for the name because it 
// depends on the window syston used). If so, it returns the font 
// already in the list; otherwise, it creates a new font, appoids it 
// to the list, and returns it. 

IFont* MapIFont::FindOrAppend (const char* name, const char* pf, 
const char* ps) { 

IFont* font = nil; 

for (font = RrstQ: lAtEndf); font = Ncxt()) ( 

if (strcmp(font->GetPrintFontO. pO = 0 
&& strcmp(font->GctPrintSizc(), ps) = 0) 

{ 

return font; 

} 

} 

font = new IFont(name, pf, ps); 

if(!font->ValidO){ 

fprintf(stderr, ’’invalid font name %s ,", name); 
fprintf(stderr, "substituting stdfont\n"); 
delete font; 

font * new IFont("stdfont", pf, ps); 

I 

ifontlist->Append(new IFontNode(font)); 
return font; 

} 


// CrcatcEntry returns an entry containing a font created by parsing 
// the given definition or an entry containing a default font if no 
// definition was given. The definition must contain three strings 
// separated by whitespace to define a font The first string defhies 
// the font's name, the second string the corresponding print font 
// and the third string the print size. 

BascNode* MapIFont::CrcatcEnlry (const char* dcQ { 
if(dcf = nil)| 
def = "stdfont Courier 10"; 

I 

char* definition = strdup(deO; // some sscanfs write to their format.. 

BaseNode* entry nil; 
charname[100]; 
char pf[100]: 
charpsflO]; 

if ($scanf(definition, "%s %s %s", name, pf, ps) 3) { 

IFont* font« new IFont(name, pf, ps); 
if (!font->Valid()) ( 

fprintf(stdcrr, "invalid font name %s, ", name); 
fprintf(stderr, "substituting stdfonbn"); 
delete font 

font *s new IFont("stdfont", pf, ps); 
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entry = new IFontNode(font); 

} 

delete definition; 
return entry; 

I 

// MapIPattcm creates its patterns from predefined or user-defined 
// attributes. 

MapIPattem::MapIPattem (Interactor* i, const char* menu) { 
ipattemlist * new IPattemList; 

Init(ipattemlist, i, menu); 

I 

// -MapIPattem frees storage allocated for the patterns and the list 

MapIPattem::-'MapIPattem () { 

for (IPattem* pattern = First(); lAtEndQ; pattern = Next()) { 
delete pattern; 

} 

delete ipattemlist; 

I 


// Impl«nent functions to give readonly access to the list 

int MapIPattem::Size 0 I 
return ipattemlist->Size(); 

1 

boolean MapIPattcm::AtEnd () { 
return ipattemlist->AtEnd(); 

} 

IPattem* MapIPattem:;Rrst () ( 
return ipattemlist->FirstO->GctPattem(); 

1 

IPattem* MapIPattem;iast 0 { 
return ipattemlist->Last()->GetPattemO; 

} 

IPattem* MaprPattcm:dPrev () ( 

return ipattemIist->PrevO*>GetPattcm(); 

I 


IPattem* MapIPattem::Nexi () { 

return ipattcmlist->NextO->GetPattcm(); 

) 

IPattem* MapIPattem::GctCur () ( 

return ipattemIist->GelCur()->GetPattcm(); 

I 


IPattem* MapIPattem:Jndcx (int index) { 
return ipattemlist->Index(index)->GetPattemOi 
I 


boolean MapIPattem: Jind (IPattem* pattern) { 
return ipattemlist->Find(pattcm); 

1 

IPattem* MapIPattcm:;GetInitial () { 

// remember index » 0-base, initial » 1-base 
return ipattemIist->Index(initial-l)->GctPattcm(); 

I 

// Skew comments/code ratio to worit around epp bug 


// FindOrAppend checks if the list already has a pattern with the same 
// attributes as the given attributes. If so, it returns the pattern 
// al ready in the list; otherwise, it creates a new pattern, appends 
// it to the list, and returns it 





IPattem* MapIPattem:JnndOrAppCTid (boolean none, float graylevel, 
int data[pattemHeight], int size) ( 

IPattem* pattern = nil; 
if (none) { 

for (pattern = FirstO:! AtEnd(); pattern =* NextQ) { 
if (pattcm->None()) { 
return pattern; 

1 

} 

pattern = new IPattem; 

} else if (graylevel != -1) { 
for (pattern = FirstQ;! AtEndQ: pattern « NextQ) { 
if (pattem->GetGrayLevel() =: graylevel) { 
return pattern; 

I 

I 

int shade = Calc6itmap(grayievel); 
pattern » new lPattem(shade, graylevel); 

I else { 

Expan(rroFullSize(data, size); 
for (pattern = FirstQ;! AtEndQ; pattern = NextQ) { 
if (pattem->GetSizeO != 0) { 
const int* cmpdata ^ pattem*>GetDataO; 
if (bcmp(data, cmpdata, pattemHeight * sizeof(int)) = 0) ( 
return pattern; 

) 


pattern = new IPattem(data, size); 

} 


ipattemlist->Appaid(new IPattefnNode(pattem)); 
return pattern; 

1 


// CreateEntry returns an entry containing a pattern created by 
// parsing the given deflnition or an entry containing a default 
// pattern if no deflnition was given. The deflnition usually 
// contains either one or pattemHei^t 16«bit hexadecimal numbers to 
// deflne either a 4x4 pattern or a pattemWidth x pattemHeight 
// pattern. One deflnition may contain the string "none" to deflne 
// the nonexistent pattern. I found out sscanf barfs if you put Ox 
// before the hexadecimal number so you can't do that 

BaseNode* MapIPattcm::CreateEntry (const char* def) { 
if (def — nil) { 
def = "0.0"; 

I 

diar* deflnition * strdv^(dcf); // some sscanfs write to their format., 
BaseNode* entry « nil; 

boolean none «(deflnition[0] 'n' II definition[0]« N*); 
if (none) { 

entry * new IPattcmNode(ncw IPattem); 

} else ( 

if (strehrfd^nition,'.') 1* nil) { 
float graylevel; 

if ($scanf(deflnition, "%V\ &graylevel) ** 1) { 
int shade e CalcBitniap(graylevcl); 
entry ** new IPattcmNode(new IPattem(shade, graylevel)); 

I 

I else I 

istream from(strlen(deflnition) + 1, deflnition); 

char buffer[80]; 

int data[pattemHei^t]; 

for (int i « 0; from » buB'er && i < pattemHeight; i++) | 
if (sscanf(buffcr, "%x'\ &data[i]) 1= 1) { 
break; 

I 

1 


if (i ss 1 tl i SB 8 li i SB pattemHeight) { 
ExpandToFullSizeCdata, i); 


entry =* new IPattemNode(new IPattem(data, i)); 

} 

} 


) 

delete definition; 
return entry; 

1 


// CalcBitmap calculates a 4x4 bitmap to rq)rcsent a shade having the 
// given gray level. 

int MapIPattcmriCalcBitmap (float graylevel) { 
static const int SHADES = 17; 
static int shades[SHADES] = { 

Oxffff, Oxcfff, Oxefbf, Oxafbf, 

Oxafaf, Oxadaf, 0xada7,0xa5a7, 

OxaSaS, 0x85a5,0x8525.0x0525, 

0x0505, 0x0405,0x0401,0x0001, 

0x0000 

I; 

return shades[round(graylevcl ♦ (SHADES -1))]; 

1 


// ExpandToFullSizc expands the bitmap from 4x4 or 8x8 to 16x16. 

void MapIPattcm;£xpandToFuIISizc (int data[pattcmHcight], int size) { 
if (size = 1) { 
int seed * data[0]; 
for (int i s= 0; i <4; i++) { 
data[i] = (seed & OxfOOO) » 12; 
data[i] h data[i] « 4; 
data[i] N data[ij « 8; 
data[i+4] = data[i]; 
data[t'»-8] = datafi]; 
data[i+12] = data[i]; 
seed «= 4; 

} 

I else if (size = 8) { 
for (int i « 0; i < 8; i++) { 
data[i] OxfF; 
data[i] \= data[i] « 8; 
data[i+8] =data(i]; 

1 

} else if (size pattcmHeight) { 
const unsigned int patternWidthMask = -(-4)« pattemWidth); 
for (int i = 0; i < pattcmHeight; i++) | 
datafi] &= pattemWidthMask; 

I 

) else I 

fprintf(stderr, "invalid size passed to ExpandToFuIlSize^"); 

1 

} 


inapkey.h 

#ifhdef mapkey_h 
#dcfinc mapkey_h 

#includc <IntcrVicws/defs.h> 

// Declare imported types. 

class Interactor; 

// A MapKey maps characters to Interactors, 

static const int MAXCHAR = 127;// Maximum value of any character. 

class MapK^ { 
public: 


MapKcyO; 

void Enterdnteractor*, char); 
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Intcractor* LookUp(char); 
const char* ToStr(char); 

protected: 

Intcractor* arTay[MAXCHAR + 1 ]; // stores Interactors by character 


}; 


#aidif 


mapkey.c 


#includc "mapkey.h" 

#includc <ctypc.h> 

#include ^terViews/Std/stxlio.h> 

// MapKey clears MapKey's array to all nils. 

MapKey::MapKey 0 { 
for (int i = 0: i <= MAXCHAR; i++) ( 
anay[i] s= nil; 

} 

) 

// Enter mters an Literactor into a slot in MapKey's array. If the 
// slot doesn't exist or another Interactor already occupies it, 

// Enter prints a warning message. 

void MapKey:£nter (Interactor* i, char c) { 
if (c >= 0 && c <= MAXCHAR) | 
if (anay(c) *= nil) { 
array[c] =i; 

} else { 

fprintf(stderr, "MapKey: slot %d already occupicdINn", c); 

I 

I else { 

fprintf(stderr, "MapKey: slot %d not in array!^", c); 

} 

} 


// Lookup returns the Interactor associated with the given character 
// or nil if there's no Interactor or the character's out of bounds. 

Intcractor* MapKey::LookUp (chare) { 
if (c>= 0 &&c<= MAXCHAR) ( 
return arrayfej; 

} else { 

fprintf(stdcrr, "MapKey: slot %d not in arrayNt", c); 
return nil; 

1 

) 


// ToStr returns a printable string representing the given character. 
// The caller must copy the returned string because the next call of 
//ToStr will change it 

const char* MapKcy::ToStr (char c) { 
static char key[3]; 
if (!isprint(c)) { 
c «toascii(c + 0100); 
key(0]« 

I else ( 
kcy(0J«"; 

I 

key[l) «sc; 
kcy[2]«0; 
return key; 

I 


page.h 


tifadef page_h 
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#define page_h 

#include <InterViewsAjraphic^icture.h> 

// Dccl arc imported types, 
class PictSclection; 

// A Page draws a grid, picture, and boundary. It can constrain 
// points to lie only on the grid. 

static const int GRID_DEFAULTSPACING = 8; 

class Page : public Picture { 
public: 

Pagc(doublc w, double h, double b. Graphic* « nil); 

'-PageO; 

Color* GetBackgroundColorO; 
boolean GctGridGravityO; 
double GctGridSpacingO; 
boolean GetGridVisibilityQ; 

PictSclection* GctPictureQ; 

void S€tGridGravity(boolcan); 
void SctGridSpacing(doublc); 
void SctGridVisibility(boolean); 
void SctRcture(PictSclcction*); 

void CoitcKfloat, float, float); 
void Constrain(Coord&, Coord&); 
void ToggleOriaitationOl 

protected: 

void getExtcnt(float&, float&, float&, float&, float&, Graphic*); 

void draw(Canvas*, Graphic*): 
void drawGrid(Canvas*, Graphic*); 
void drawBoundary(Canvas*, Graphic*); 

void drawClippcd(Canvas*, Coord, Coord, Coord, Coord, Graphic*); 
void drawGridClipped(Canvas*, Coord, Coord, Coord, Coord, Graphic*); 
void drawPicturcClippcd(Canvas*, Coord, Coord, Coord, Coord, Graphic*); 
void drawBoundaryClipped(Canvas*, Coord, Coord, Coord, Coord, Graphic*); 

intDcfinePoints(Coord, Coord, Coord, Coord, Graphic*); 

double pagcwidth;// stores exact width of page 

double pagehcight;// stores exact height of page 

int pgwidlh;// stores integral width of page 

int pgheigh^// stores integral height of page 

PBiush* border,// stores bmsh for drawing boundary 

boolean gravity;// will constrain points to grid if true 

boolean visibility;// will draw grid points if true 

double 5pacing_pixcls;// stores spacing in units of pixels 

double spacing points:// stores spacing in umts of printer's points 

Coord* X, *y;//stores grid points 

Graphic* grid_gs;// stores attributes for drawing grid/boundary 
Transformer* grid_tt;// stores matrix for drawing grid/boundary 
PictSeiection* picture;//storcs picture 


// Define access functions to get and set members' values. 

inline boolean Page::GetGridGravity Q { 
return gravity; 

} 


inline double Page::GetGridSpacing 0 I 
return spacing_points; 

I 


inline boolean Page::GetGridVisibility 0 I 
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return visibility; 


} 

inline PictSelection* Page::GrtPicture 0 { 
return picture; 

} 

inline void Pagc::SetGridGravity (boolean g) { 
gravity = g; 

} 

inline void Page;:SetGridVisibility (boolean v) { 
visibility = v; 

} 

#endif 


page.c 


#definc _POSIX_SOURCE 
#includc ’’ipainth" 

#includc "pageb" 

#include "slpicth" 

#includc <InterVicwsyStdAnathb> 

#include <IntcrViews/Graphic/lines.h> 

#include <[nterViews/Graphic^olygons.h> 

#include <InterViewsyGraphic^til.h> 

#include <InterVicws/canvas.h> 

#include <interViews/paintcr.h> 

#include <InterViewsAransfonncr.h> 

// Page starts out with gravity disabled, spacing set to the default 
// value, visibility disabled, and an empty picture. 

Page:dPagc (double w, double h, double b, Graphic* gs): (gs) { 
pagcwidih » w; 
pageheight» h; 
pgwidth * round(w); 
p^eight s round(h); 
border = new PBrush(OxffFf, round(b)): 
gravity « false; 
spacing^pixels » 0.0; 
spacing_points = 0.0; 
visibility = false; 

% sy snil; 

SctGridSpacing(GRID_DEFAULTSPACING); 

grid_gs » new FullGraphic; 

grid_tl s new Transformer, 

grid_gs->SetBrush(psingle); 

gTid_gs->SetColors(pbIack, pwhitc); 

grid_gs->SetPattem(psolid); 

grid_gs->SetTransformer(grid_tt); 

grid _gs->RllBg(true); 

picture » nil; 

SetPicture(nil); 
if (GetTransformerO = nil) { 

SclTransformcr(ncw Transformer); 

I 

I 

Pageii-Page 0 I 
delete border; 
delete x; 
delete y; 

// delete grid_gs: 

) 


// GetBackgroundColor gets the background color for DrawingVjew. 

Color* Page::GctBackgroundColor 0 I 
PColor* bg s= grid_gs->GctBgColor(): 
return *bg; 

I 


217 


// SctPicture replaces the old picture with a new picture (creating an 
// empty one if necessary) and deletes the old picture. 

void Page;:SetPicture (PictSeiection* newpic) \ 
if (ncwpic =s* nil) 1 
newpic » new PictSeiection; 

} 

if (picture I^nil) { 

Remove(picture); 
delete picture; 

) 

picture = newpic; 

Append(picture); 

I 

// SctGridSpacing changes the spacing between the grid points, which 
// also requires reallocating the number of points in the grid. 

void Page::SetGridSpacing (double p) 1 
if (spacing_points != p) { 
spacing_points = p; 

spacing_pixcls -spacing_points • points; 
delete x; 
delete y; 

int x_count = int(pagewidth/spacing_pixels) + 1; 
int y_count»int(pagehcight/spacing_pixels) + 1; 
int count * x_count • y_count; 

X * new Coord[count]; 
y = new Coord[count]; 

} 

} 


// Center replaces the page's matrix with a freshly generated matrix 
// to center the page in the window and get rid of accumulated 
// roundoff errors. 

void Page:;Ccnter (float mag. float wincx, float wincy) ( 
Transformer* t« GetTransfomierO; 
float cx, cy; 

if (t->Rotated90()) ( 

•t»identity; 

ToggleOrientationO; 

) else { 

*t = identity; 

i 

GetCcntcr(cx, cy); 

Scale(mag, mag, cx. cy); 

Translatc(wincx - cx, wincy - cy); 


// Constrain replaces the given point with the closest grid point if 
// gravity has been enabled. 

void Pagc::Constrain (Coord& x, Coord& y) { 
if (gravity) { 
float xO, yO; 

grid_tt->InvTransfonii(float(x), float(y), xO, yO); 
xO * round(round(xO/spacing_pixels) * spacing_pixels); 
yO » round(round(yO/spacing_pixels) • spacing_pixcls); 
grid_tt->TransfonTi(xO, yO, xO, yO); 

X ■= round(xO); 
y ss round(yO); 

1 

I 

//ToggleOricntation examines the picture's matrix to sec what state 
// it is in and flips the matrix to the other state. 

void Pagc::TogglcOrientation 0 { 

Transformer* t = GetTransfomierO; 
float 1, b, dx. dy; 

if (t->Routcd90()) I 
t->Transfomi(0.0. -pagewidth, dx, dy); 
t->Transform(0.0,0.0,1, b); 



Translate(dx -1, dy - b); 

Rotate(90.0, l,b); 

} else ( 

t->TransfoiTn{0.0,0.0,1, b); 
t->Transfonn(0.0, pagewidth, dx, dy); 
Rotate(-90.0,1, b); 

Translate(dx -1, dy - b); 

} 


// getExtmt returns the page's dimensions as its extoit instead of 
// returning the extant of its picnire so idraw's panner will always 
// show the page's extant, not the picture's extent 

void Pagc;:gctExtant (float& 1, float& b, float& cx, float& cy, 
float& tol, Graphic* gs) | 
float dummyl, dummy2; 

transformRcct(0.0,0.0, pagewidth, pageheight, 1, b, dummyl, dummy2, gs); 
transform^agewidth/2, pagehei^t/2, cx, cy, gs); 
tol = 0; 

} 

// draw draws the grid, picture, and boundary. 

void Page::draw (Canvas* c. Graphic* gs) | 
concatTransformer(nil, gS“>GetTransformcrO, grid_tt); 
drawGrid(c, grid_^); 

Picture::draw(c, gs); 
drawBoundary(c, grid_gs); 

1 

// drawGrid passes the woric to drawGridClipped. 

void Page::drawGrid (Canvas* c. Graphic* gs) { 

Coord xmax * c->Width(); 

Coord ymax * c*>HcightO; 
drawGridClippcd(c, 0,0, xmax, ymax, gs); 

I 


// drawBoundaiy draws the boundary around the page. 

void Page::drawBoundary (Canvas* c. Graphic* gs) { 
gs->SetBnish(border); 
update(gs); 

pRect(c, 0,0, pgwidth, pghei^t); 

} 


// drawClipped draws part of the grid, picture, and boundary, 
void Pagc::drawClipped ( 

Canvas* c. Coord I, Coord b. Coord r. Coord t Graphic* gs 

)( 

concatTransformcr(nil, gs*>GctTransfonincr(), grid_tt); 
drawGridClipped(c, 1, b, r, t grid_gs); 
drawPicturcClipped(c, ], b, r, t, gs); 
drawBoundaryGipped(c, I, b, r, t, grid_gs); 

I 

// drawGridClipped grids the given area with points if visibility has 
// been enabled. It sends the points in chunks of MAXCHUNK points 
// each because Xlib does not yet break up too-big requests. 

void Page::drawGridQipped (Canvas* c. Coord 1, Coord b. Coord r, Coord t 
Graphic* gs) { 
if (visibility) | 
gs->SctBrush(psinglc); 
update(gs); 

int ntota! = DefinePoints(l, b, r, t gs); 
int nsent * 0; 
while (nsent < ntotal) { 
const int MAXCHUNK = 6000; 
int nchunk ■= min(MAXCHUNK, ntotal - nsent); 
pMultiPoint(c, &x[nsentj, &y[nsent], nchunk); 
nsent += nchunk; 

1 

} 
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// drawPicturcClipped goes right ahead and draws the picture, letting 
// it decide if its extent intersects the clipping box. 


void Page::drawPictureClipped ( 

Canvas* c, Coord 1, Coord b, Coord r. Coord t. Graphic* gs 

){ 

register RefList* i; 

Graphic* gr, 

FuUGraphic gstemp; 

Transformer ttemp; 

gstCTnp,SetTransfomicr(&ttcmp); 

for (i * refList->RrstO; i !* refLi5t->End(): i * i->Next()) { 
gr « gctGraphic(i); 
concatGraphic(gr, gr, gs, &gstemp); 
drawClippedGraphic(gr, c, 1, b, r, t, &gstemp); 

} 

gstemp.SetTransfomierfnil); /* to avoid deleting ttemp explicitly */ 

I 

// drawBoundaryClipped draws part of the boundary around the page. 

void Page:;drawBoundaryClipped ( 

Canvas* c, Coord 1, Coord b, Coord r, Coord t. Graphic* gs 

){ 

BoxObj clipBoxO, b, r, t); 

Coord xO, yO, xl, yl, x2, y2, x3, y3; 
transformfO, 0, xO, yO, gs); 
transformfO, pgheight, xl, yl, gs); 
lransform(pgwidth, 0, x2, y2, gs); 
transform(pgwidth, pgheight, x3, y3, gs); 

LincObj lLinc(xO, yO, xl, yl); 

LincObj bLine(xO, yO, x2, y2); 

LineObj il,ine(x2, y2, x3, y3): 

LineObj tLinefxl, yl, x3, y3): 

gs*>SetBnish(border); 

update(gs); 

if (clipBox.lntersects(lLine)) { 
pLine(c, 0,0,0, pgheight); 

I 

if (clipBox.Intersects(bLinc)) { 
pLinefe, 0,0, pgwidth, 0); 

I 

if (clipBox.Intcrsccts(rLinc)) { 
pLine(c, pgwidth, 0, pgwidth, pghei^t); 

I 

if (clipBox.IntcrscctsftLine)) | 
pLine(c, 0, pgheight, pgwidth, pgheight); 

} 


// DehnePoints dehnes just enou^ points to grid the given area. 

int Page;:DeiinePoints (Coord 1, Coord b, Coord r. Coord t. Graphic* gs) { 
float xO, yO, xl, yl; 

invTransformRcct(float(I)J3oat(b),float(r)41oat(t), xO, yO, xl, yl, gs); 
xO as round(xO/spacing_pixels) * spacing_pixels; 
yO = round(yO/spacing_pixcls) * spacing_pixels; 
xO =max(float(0.0), xO); 
yO * max(float(0.0), yO); 

X1 s= min(x 1, (float)pagewidth); 
yl asmin(yl, (float^ageheight); 
int x_count *int((xl - x0)/spacing_pixels) + 1; 
int y_count *sint((yl - y 0 )/spacing_ 4 )ixels) + 1; 
int count * x_count * y_count; 

for (int i » 0; i < x_couni: i++) j 
Coord ix * round(x0 + i*spacing_pixcls); 
for (int j ■ i; j < count; j +» x_count) | 

x(j] *ix; 

1 
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for (i = 0; i < y_count; i++) { 

Coord iy »= round(yO + i*spacing_pixds); 

for (int j = i ♦ x_count; j < (i+1) * x_count; j+4-) { 

yU]='y; 

) 

I 


return count; 

1 


paneLh 

#ifndcf panel_h 
#definc panel_h 

#include "highJightcr.h" 

// Declare imported and uscd-bcfore-defined types. 

class Editor; 
class Panelltem: 

// A Panel displays several items but highlights only one item. 

class Panel: public HighlighterParent { 
public: 

PanelQ; 

void Entcr(PanclIt«n*, char); 

Panelltem* LookUp(char); 

void SetCur<PanclItcm*): 

Panelltem* GetCur(): 

void PerformCurpentFunction(Event&); 
void PerformTemporaryFunctionCEvent&, char); 

protected: 

Panelltem* cur,//stores currently selected item 

Panelltem* itenis[l 28];// stores items by their associated diaracter 


// A Panelltem displays two text labels and performs a function. 

class Panelltem : public Highlighter ( 
public: 

PanelItem(Panel*, const char*, const char*, char. Editor*); 
-'PancUtcmO; 

void Handle(Evait&); 

virtual void Perform(Event&); 
virtual void SetMessageQ; 

protected: 

void ReconfigO; 

void Rcdraw(Coord, Coord, Coord, Coord); 
void RcsizcQ; 

Panel* panel;// stores panel which this item belongs to 
char* name;//stores item’s text label 
char* key,// stores label of key which selects this item 
char* msg; // stores message shown in message block 

Coord name_x, namely;// stores position at which to display name 
Coord kcy_x, kcy_y;// stores position at which to display key 
Coord side;// size of largest square fitting in canvas 
Coord offx;//horizontal offset needed to center square 
Coord ofTy,//vertical offset needed to center square 


Editor* editor, // stores editor to be used in setting message 

}; 


#endif 


paneLc 

#include "dfd_defs.h" 
finclude "editor.h" 
finclude "istring.h" 

#includc "panelii" 

#include <3nterViews/evcnt.h> 

#inc)ude <InterViews/font.h> 

#include <interViews4>ainterJi> 
finclude <InterViews/scnsor.h> 

#includc <InterViews/shape.h> 

#include <ctypc.h> 

#includc <InterViews/Std/stdio.h> 

// Define the maximum value of any character. 

static const int MAXCHAR = 127; 

// Panel starts with no currently hi^lighted or stored items. 

Panel::Pancl () | 
cur = nil; 

for (int i = 0; i <= MAXCHAR; i++) { 
it«Tis[i] »nil; 

} 

} 


// Enter stores an item using its associated character as its index 
// and tells it it can get its highlight painter from us. 

void Pane!::Entcr (PancUtem* i, char c) { 
if (c >* 0 && c <« MAXCHAR) { 
items[c]«i; 

1 

i->SetHighlightcrParent(this): 

1 


// LookUp returns the item associated with the given character. 

PancUtem* Pancl:lx)okUp (chare) { 

PaneUtem* i = nil; 
if (c >= 0 && c <= MAXCHAR) { 
i»itemsfej; 

I 

return i; 

I 


// SetCur sets the currently highlighted item. The panel highlights 
// only one item at any time. 

void Pancl::SctCur (PancUtem* item) { 
if (cur != nil) { 
cu r->Highlight(falsc); 

1 

cure item; 
if (cur !=nil) { 
cur->Highlight(truc); 

) 

} 


// GetCur returns the currently highlighted item. 

PancUtem* PanehiGctCur () ( 
return cur, 

I 

// PerformCurrentFunction tells the currently highlighted item to 
// perform its function. 

void PanehtPcrformCurrcntFunction (Event& c) { 
if (cur !■ nil) { 



cu r->Perform(e); 

) 

1 

// PerformTemporaryFunction temporarily selects the item associated 
// with the given character and tells it to perform its fimetion. 

void Panel: J*erformTcmporaryFunction (Evcnt& e, char c) | 
PancUtem* tmp * LookUp(c); 
if (tmp != nil) { 

Panditem* prev = cur, 
tmp->SetMessagcO; 

SctCur(tmp); 
tmp->Perform(e); 
if (prev !*= nil) { 

prev->SctMessagcO; 

SctCur(prcv): 

I 

) 

) 


// Panelltcm stores the panel it belongs to and its text labels. 

PanelItem::PanelItcm (Panel* p, const char* 1, const char* k, char c. 
Editor* e) { 

p->Entcr(this, c); 
panel =p; 
editor = c; 

msg = new char [MAXMSGLEN+1]; 
name = strdup(l ? 1:""); 
key = stidup^ ? k : 
input» updownEvents: 
input->Refer«iceO; 

I 

// Free storage allocated to store the text labels. 

PancUtcm::*I*anelItan 0 ( 
delete name; 
delete key; 

} 

// Handle highlights the item if the user clicks on it or types its 
// associated character (mapped by the program). 

void PanelltemiiHandle (Event& e) { 
switch (e.cventType) ( 
case DownEvent: 
case KeyEvent: 

SetMessageO; 

panel->SetCur(this); 

break; 

default: 

break; 

I 

1 

// sets the value of the message in the message block 

void Panelltem::SetMcssageO 1 
// define it in your subclass 

I 


// Perform performs the item's function. 

void Panelltcm: J’erform (Evcnt&) ( 

// define it in your subclass 

1 

// Reconhg pads the item's shape to accomodate its text labels. 

// Basing padding on the font in use ensures the padding will change 
// proportionally with changes in the font's size. 

static const float WIDTHPAD = 1.5; // fraction of font->Width(EM) 
static const float HTPAD ■ 0.77; // fraction of font->Height() 
static const float KEYPAD «176.; // fraction of font->Width(EM) 


static const char* EM *= ''m"; // widest alphabetic character in any font 


void PanelItcm::Reconfig () { 

Highlightcr::Rcconfig(); 

Font* font = output-:^etFont(); 
int xpad - round(WIDTHPAD * font->Width(EM)); 
int ypad = round{HTPAD * font->Hci^t()); 
shape->width = font->Width(name) + (2 * xpad); 
shape->height * font->Height() + (2 * ypad); 
shape->Rigid{2 * xpad, hfil, 2 * ypad, 0); 

} 


// Redraw displays the text labels. 

void PanelIt«n::Rcdraw (Coord 1, Coord b. Coord r. Coord t) ( 
output->ClcarRect(canvas, 1, b, r, t); 
output->FillBg(false); 

ouq)ut->Text(canvas, name, namc_x, namc_y); 
output->Text(canvas, key, key_x, key_y); 
output->FillBg(true); 

) 

// Resize calculates the text labels' positions. For the convenience 
// of subclasses which want to draw graphic labels centered in the 
// canvas and as large as possible while maintaining a 1:1 aspect 
// ratio. Resize also calculates side, offx, and offy which define the 
// largest possible square centered in the canvas. 

void P^elltan::Resize 0 I 

Font* font = output->GctFont(); 

name_x * max(0, (xmax - font->Width(namc) + 1) / 2); 

name_y *= (ymax - font->Height() + 1) /2; 

int pad round(KEYPAD * font->Width(EM)); 

kcy_x * xmax - font->Width(key) - pad; 

key_y sspad; 

side « min(xmax, ymax); 

offx * (xmax • side) / 2; 

offy = (ymax • side) / 2; 

) 


pdmenu.h 


#ifhdcf pdmenu_h 
#define pdmcnu_h 

#include "highli^terJi" 

// Declare imported and uscd-before-defined types. 

class PullDownMenuButton; 

class PullDownMcnuActivator, 
class PullDownMenuCommand; 

// A PullDownMenuBar displays several activators and coordinates which 
// activator will oprai its menu. 

class PullDownMenuBar: public Highli^terParent { 
public: 

Pu llDo wnMcnuBarQ: 

-Pu!lDownMcnuBar(); 

void Enter(PuIlDownMenuButton*); 

boolean Contains(Interactor*); 

boolean MenuActiveQ; 

boolean McnuShouldActivate(JhillDownMenuButton*); 

void MenuActivate(PullDownMenuButton*); 
void MenuDeactivateO; 

protected: 
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void GrowButtonsO; 


PullDownMrauButton* cur;// stores currently active activator 
int sizebuttons;// stores current size of dynamic array 
int numbuttons;// stores number of activators in array 
PullDownMcnuButton** 
buttons;// stores bar's interior activators 


class PullDownMaiuButton : public Highlighter { 
public: 

PullDownMenuButton(PullDownMcnuBar*, const char*); 
PullDownMenuButton(PullDownMenuActivator*, const char*); 

~PullDownMenuButlonO; 

virtual boolean Contains(Interactor *) {return false;} 
virtual void OpenO (Highlight(tnje);} 
virtual void CloseQ {Highlight(false);} 

virtual void Exccute(Evcnt&) {} 

protected: 

PullDownMcnuBar* barParwt;// stores bar containing this activator 
PullDownMaiuActivator* buttonParent; 

virtual void RcconfigO; 

virtual void Rcdraw(Coord, Coord, Coord, Coord); 
virtual void ResizeQ; 

char* name;// stores activator's text label 

Coord name_x, name__y;//stores position at which to display name 

I; 


// A PulDownMcnuActivator displays a text label and opens a menu when 
// you activate it 

class PulIDownMenuActivator: public PullDownMenuButton ( 
public: 

PullDownMenuActivator(PullDownMcnuBar*, const char*); 
PullDownMenuActivator(PullDownMcnuActivator*, const char*); 
-'PullDownMenuActivatorO; 

void Enter(PullDownMcnuButton*); 
boolean Contains(lnteractor ‘child); 

void SctMcnu(Sccne*); 
void Handle(Event&); 

void OpenQ; 
void CloseO; 
void ChainQoseO; 

protected: 

void HandlcBar(Evcnt&); 
void HandlcButton(Evcnt&); 

boolean IsOpen; 

Scale* menu;//stores menu to be opened when activated 
void GrowButtonsO; 

int sizebuttons;// stores current size of dynamic array 
int numbuttons;// stores number of commands in array 
PullDownMoiuButton** 
buttons;// stores activator's interior commands 


); 


// A PullDownMenuCommand displays a text label and executes a command. 
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class PullDownMcnuCommand : public PullDownMcnuButton { 
public: 

PullDownMenuCommand(PullDownMcnuActivator*, const char*, const char*); 
PullDovmMenuCommand(PullDownMenuBar*, const char*, const char*); 
-PullDownMenuCommandO; 

y^«******« change by Eagle 15 Sep 94, made this a virtual function 
virtual void Handle(Event&); 

virtual void Execute(Event&); 

protected: 

void ReconfigO; 

void Redraw(Coord, Coord, Coord, Coord); 
void ResizeO; 

PullDownMenuActivator* 

activator;// stores activator which this cmd belongs to 
char* key;// stores label of key which selects this cmd 

Coord key_x, kcy_y;// stores position at which to display key 


// A PuIlDownMcnuDivider displays a horizontal line extending the fiill 
// width of the m«iu, dividing it into two submenus. 

class PuIlDownMcnuDivider: public PullDownMcnuCommand { 
public: 

PullDownMenuDividerO; 

protected: 

void RedrawfCoord, Coord, Coord, Coord); 


1 ; 


#endif 

pdmenu.c 

#include "istring.h" 
finclude ’'p<lmenu.h" 

#inciude <IntcrViews/evenLh> 

#includc <InterVicws/fonUi> 

#include <InterVicws/frameJi> 

#include <IntcrVicws^aintcr.h> 

#include <InterViews/scnsor.h> 

#inciude <JntcrVicws/shape.h> 

#includc <IntcrVicws/world.h> 

#includc <bstring.h> 

/* Define the initial number of elements to allocate space for. */ 
static const int INl l lALSI^ = 15; 

/* 

* PullDownMenuBar starts with no currently active or stored 

* activators althou^ it allocates some initial space to store thrai. 
*/ 

PullDownMenuBar:PulIDownMcnuBar 0 : cuKO) { 
sizebuttons = INTTIALSIZE; 
numbuttons « 0; 

buttons = new PulIDownMenuButton*[sizebuttons]; 

1 

f* 

* Free storage allocated for the dynamic array. 

•/ 

PullDownMenuBan-PullDownMenuBar 0 ( 
delete Q buttons; 
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) 


I* 

* Enter stores an interior activator and tells it it can get its 

• hi^light painter from us. 

•/ 

void PullDownMCTuBar:£nter (PullDownMenuButton* act) { 
if (numbuttons *= sizcbuttons) { 

GrowButtonsQ; 

1 

buttons[numbuttons-f+]» act; 

) 


/* 

* Contains returns tme if the child is one of the bar's activators 

* or one of the activators' commands. 

*/ 

boolean Pu]lDownMenuBar::Contains (Interactor* child) { 
for (int i » 0; i < numbuttons; i++) { 
if ((buttonsfi] child) li (buttons[i]-::^ontains(child))) | 
return true; 

} 


return false; 

} 


/* 

* MenuActive returns tme if any of the bar's activators have opoied 

♦ a moiu. 

*/ 

boolean PullDownMenuBar::MenuActive 0 { 
return cur ? 1:0; 

) 


/* 

* McnuShouldActivate returns true if any of the bar's activators 

* EXCEPT the given one have opened a mmu. 

V 

boolean PullDownMenuBar::MenuShouldActivate (PullDownMenuButton ♦btn) { 
return cur && cur !* btn; 

) 

f* 

* MoiuActivate highlights the given activator, opms the activator's 

* menu, and stores it as the currently active activator. 

•/ 

void PullDownMenuBar::MenuActivate (PullDownMenuButton* act) { 
act*>Hi^light(truc); 
cure act; 
act‘>Open0; 

} 


/* 

* MenuDeactivate closes the currently active activator's menu, 

* unhi^ights the activator, and stores no more active activators. 

V 

void PulIDownMenuBar::McnuDcactivatc 0 I 
cur‘>Close(); 
cur->Highlight(false); 
cur = 0; 

1 

/* 

* GrowActivators increases the dynamic array's size to make room for 

* more activators to be stored. 

V 

void PullDownMenuBar::GrowButtons 0 ( 

PullDownMenuButton** oldacts « buttons; 
sizcbuttons +* INrnALSIZE/2; 
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buttons » new PullDownMenuButton*[sizebuttons]; 
bcopy(oldacts, buttons, numbuttons * sizcof(PullDownMaiuButton*)); 
delete oldacts; 

} 

PullDownMenuButton:J^illDownMenuButton (PullDownM«iuActivator* b, 

const char* n): 

barParent(b->barParcnt), buttonParcnt(b) { 
name *= strdup(n ? n : 
input = new Sensor(onoffEvcnts); 
input->CatchButton(DownEvent, LEFTMOUSE); 
input->CatchButton(UpEvcnt, LEFTMOUSE); 

SctHi^lighterParcnt(barParent); 

I 

PullDownMenuButton::PullDownMcnuButton (PullDownMenuBar* b, const char* n) : 
barParentCb), buttonParent(O) { 
name = strdup(n ? n : *"')5 
input s= new Scnsoi<onoffEvcnts); 
input->CatchButton(DownEvait, LEFTMOUSE); 
input->CatchButton(UpEvcnt, LEFTMOUSE); 

SetHighlighterParent(barParent); 

I 


f* 

* Free storage allocated for members. 

*/ 

PullDownMenuButton::-PullDownMenuButton () { 
delete name; 

} 


/* 

* Reconhg pads the activator's shape to accomodate its text label. 

* Basing padding on the font in use oisures the padding will change 

* proportionally with changes in the font's size. 

•/ 

static const float WIDTHPAD = 1.0;/* fraction of font->Width(EM) */ 
static const float CMDHTPAD » 0,1;/* fraction of font->HcightO */ 
static const float ACIUTPAD * 0.2;/* fraction of font->Hcight() */ 
static const char* EM = "m"; /* widest alphabetic character in any font */ 

void PullDownMcnuButton::Rcconfig 0 { 

Highlighter::Reconfig(); 

Font* font = ou^ut-:^ctFontO; 
int xpad = round(WIDTHPAD * font->WidthCEM)); 
int ypad = loundfACTHTPAD * font->Hcight()); 
shapc->width = font->Width(name) + (2 * xpad); 

8hape->height« font->Hcight() + (2* ypad); 
shape->Rigid(shapc->widlh - xpad, 0, 2 * ypad, 0); 

I 


/* 

* Redraw displays the text label. 

•/ 

void PullDownM«iuButton::Redraw (Coord I, Coord b. Coord r. Coord t) ( 
output->ClearRcct(canvas, 1, b, r, t); 
ou^ut->Text(canvas, name, name_x, namely); 

1 

/• 

* Resize calculates the text label's position. 

*/ 

void PullDownMcnuButton::Rcsizc () { 

Font* font» output->GetFont(); 

namc_x « max(0, (xmax - font->Width(name) + l)/2); 

name_y «(ymax - font->Hcight() + 1) / 2; 

I 


/* 

• PuIlDownMenuActivator stores the bar it belongs to and its text 

* label. It starts off with an empty menu and no stoned commands 
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* although it allocates some initial space to store the commands. It 

• must catch the same mouse button I^allDownMenuCommand catches. 

*/ 

PullDownMOTuActivator::PulIDownMcnuActivator (PullDownMenuBar* b, 
const char* n) : PullDownMcnuButton(b,n), IsOpcn(false) ( 
b->Entcr(this); 
menu *= new ShadowFrame; 
menu->SetCanvasType(CanvasSaveUnder); 
sizebuttons = INITIALS IZE; 
numbuttons = 0; 

buttons = new PullDownMenuButton*[sizebuttons]; 

} 


PullDownMenuActivator::FhiIlDownMcnuActivator (PullDownMenuActivator* b, 
const char* n) : PullDownMenuButton(b^), IsC)pen(falsc) { 
b'>Entcr(this); 
menu = new ShadowFrame; 
menu->SetCanvasType(CanvasSaveUnder); 
sizebuttons = INITIALSIZE; 
numbuttons * 0; 

buttons * new PullDownMaiuButton*[sizebuttons]; 

I 


f* 

* Free storage allocated for members. 

V 

PullDownMcnuActivator::~PuIlDownMenuActivator Q { 
delete buttons; 
delete menu; 

} 


/* 

* SetMenu sets the menu's actual contents. 

•/ 

void PullDownMcnuActivator::SetMenu (Scene* box) { 
menu->lnsert(box); 

} 


void PullDownMenuActivator::ChainQosc() { 

Close(); 

if (buttonParent) 
butlonParcnt->ChainClosc(); 
else if (barParent->MenuActive()) 
barParent->MenuDcactivate(); 

} 

/* 

* Handle works together with the bar to determine whether any 

* activator has opened or should open a menu and accordingly tells 

* the bar to deactivate or activate an activator. 

•/ 

void PullDownMcnuActivator::HandIe(Evcnt &c) { 
if (buttonParent) 

HandleButton(e); 

else 

HandleBar(e); 

} 


void PullDownMenuActivator::HandleButton (Evcnt& e) { 
switch (c.eventType) | 
case UpEvent: 

ChainClosc(); 

break; 

case OnEvent: 

OpenO; 

break; 

case OffEvent: 
while (1) { 

Rcad(e); 

if (c.eventType«« OnEvent) 
if ((c.target !* this) && I(Contains(e.largct))) { 

CloscQ; 

break; 
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1 

if (e.eventType = UpEvent) { 
ChainCloscO; 
break; 

1 

e.larget->Handle(e); 

I 

c.targct->Handle(c); 

break; 

1 


void PullDownMenuActivator::HandlcBar (Ev«it& e) { 
switch (e.eventType) { 
case DownEvCTit: 
if (!barParent->MenuActive()) { 
barParent->McnuActivate(this); 
while (e.eventType |s= UpEvent) { 

Read(e); 

if (e.eventType UpEvent) 
barParcnt->MenuDeactivate(); 
if (barParait->Contains(e.target)) 
e.targct->Hand!e(c); 



break; 


case UpEvwit: 
break; 

case OnEvent: 

if (barParcnt->MaiuShouldActivate(this)) ( 
barParCTit->McnuDcactivatcO; 
barParent->MenuActivate(this); 

I 

Highlight(true); 

break; 

case OffEvent: 
if (llsOpen) 

EEgh!ight(false); 

break; 

1 

i 

/* 

* Enter stores an interior command and tells it it can get its 

* highlight painter from our bar like us too. 

•/ 

void PullDownMcnuActivator:£ntcr (PullDownMcnuButton* cmd) { 
if (numbuttons **= sizebuttons) | 

GrowButtonsO; 

I 

buttons[numbuttons++] = cmd; 
cmd->SctHighlighterParcnt(barParcnt); 

J 

f* 

* Contains returns tme if the command is one of the activator’s 

* commands. 

•/ 

boolean PullDownMonuActivatorriContains (Interactor* cmd) { 
for (int i = 0; i < numbuttons; i++) | 
if ((butlons[i] =cmd) II (buttons[i]->Conlains(cmd))){ 
return true; 

1 

1 

return false; 

1 


Open inserts the menu into the scale with the menu’s top left 
• comer aligned with the activator's bottom left comer. 

•/ 

void PuIlDownMenuActivator::Open 0 { 
PullDownMcnuButton::Opcn(); 



if (IsOpen) return; 

IsOpen = true; 

World* world = GetWorldO; 

Coord X = 0; 

Coord y = 0; 
if (buttonParent) { 

X = shape->width; 
y » shape->height; 

1 

GetRelative(x, y» world); 
worId->lnsertPopup{menu, x, y, TopLcft); 

I 

I* 

* Close makes the activator's menu disappear. 
*l 

void PullDownMenuActivator::CloseO { 
PullDownMenuButton::CloscO: 
if (IsOpCTi) { 

for (int i » 0; i < numbuttons; i++) 
buttons[i]->Close(); 

menu->ParcntO->Rcmovc(maiu); 

1 

IsOpen = false; 

) 


/* 

* GrowCommands increases the dynamic array's size to make room for 

* more commands to be stored. 

•/ 

void PullDownMenuActivator::GrowButtons() { 

PullDownMenuButton** oldcmds * buttons; 

sizebuttons += INTTIALSIZE/Z; 

buttons * new PullDownMaiuButton*[sizebuttons]; 

bcopy(oldcmds, buttons, numbuttons • sizeoffPullDownMenuButton*)); 

delete oldcmds; 

I 

/* 

* PullDownMenuCommand stores the activator it belongs to and its text 

* labels. It catches only one mouse button to prevent the user from 

* accidentally executing a command upon another button's release. 

•/ 

PullDownMenuCommand: J^lIlDownMcnuCommand (PullDownMcnuActivator* b, 
const char* n, const char* k): PullDownMcnuButton(b,n) ( 
if(b!=nil){ 
b->Entcr(this); 

I 

key « stndupCk ? k : 

I 

PullDownMcnuCommand::PuIIDownMcnuCommand (PullDownMcnuBar* b, 
const char* n. const char* k) : PullDownMcnuButton(bui) { 
if(b!=nil)i 
b'>Entcr(this); 

I 

key * slrdup(k ? k :""); 

I 


PullDownMcnuCommand::'-PullDownMcnuCommand 0 { 
delete key, 

I 


/• 

* Highlight or unhi^light the command when the mouse passes 

* over and execute the command when the user releases the button 

* types its associated character (mapped by the program). 

•/ 

void PullDownMenuCommand:d^dIe (EventS: e) { 
switch (c.evcntType) { 
case OnEvent: 
if (IbuttonParent) { 
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if (!barParcnt->MMiuActiveO) 
Highlight(true); 

I 

else 

Highlight(trae); 

break; 

case OffEvent: 
Highli^t(falsc); 
break; 

case UpEvcnt: 
if (IbuttonParent) { 
if (!barParcnt->MenuActive()) 
Exccute(c); 

} 

else 

Execute(c); 

Highlight(falsc); 
if (buttonParcnt) 
buttoiiParent->ChainCnoseO; 
break; 

case KeyEvcnt: 

//activator->FlushO; 

Execute(c); 

break; 

case DownEvCTt: 
break; 

} 

} 


/* 

* Execute carries out the command's purpose. 

*1 

void PullDownMcnuCommand:£xecutc (Evcnt&) { 

/* define it in your subclass */ 

} 

/* 

* Reconfig pads the command's shape to accomodate its text labels. 

•/ 

void PullDownMenuCommand::Reconfig () | 
Highlighter::Reconfig(); 

Font* font« ou^ut*>GetFont(); 
int xpad = round(WIDTHPAD • font->Width(EM)); 
int ypad ^ round(CMDHTPAD * font->Height()): 
shape->width « font->Width(name) + (2 * xpad); 
shapc->width +» font->Width(kcy) + (2 * xpad); 
shape“>hcight = font->Hcight() + (2 • ypad); 
shape->Rigid(0, hfil, 0,0); 

I 


/• 

• Redraw displays the text labels. 

*/ 

void PullDownMcnuCommand::Redraw (Coord 1, Coord b. Coord r. Coord t) { 
PuIlDownMcnuButton:;Rcdraw(l,b^,t); 
oulput->Tcxt(canvas, key, kcy_x, key_y); 

I 

I* 

* Resize calculates the text labels' positions. 

•/ 

void PullDownMcnuCommand:;Resizc Q I 
Font* font ** output->GctFont(); 
int xpad *= round(WIDTHPAD * font->\Vidth(EM)); 
name_x « xpad; 

namc_y * (^ax - font->Hcight() + 1) / 2; 
key_x « xmax - font*>Width(key) - xpad; 
key_y « name_y; 

} 


r 

• PullDownMcnuDivider listens to no events so it will neither 
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* highlight itself nor execute any command. 

•/ 


Ph3llDownM«iuI>ividen:PullDownMenuDivider (): 

PuIlDownMenuCommand((PullDownMenuBar *) nil, nil, nil) { 
Listcn(noEvents); 

} 

f* 

* Redraw displays a horizontal line spanning the canvas. 

V 

void PullDownMenuDivider::Redraw (Coord 1, Coord b. Coord r. Coord t) | 
output->QearRect(canvas, 1, b, r, t); 

Coord hy = ymax / 2; 
output->Linc(canvas, 1, hy, r, hy); 

I 


psdlcomp.h 

I* 

* This file contains the interafce for the following objects 

* GraphComponent, Vertex, Operator, Terminator, Edge 

* These are the components of a PSDL graph. Each object 

* contains the idraw components necessary to create that 

* object in the editors drawing. GraphComponent serves as 

* the base class from which Vertex and Edge are derived directly. 

* Operator and Terminator are further derived from Vertex 

* 

♦ This file was created specifically for the CAPS graphic editor. 

* 

•Created by; C.S£aglc 

• Last changes: November 9,1994 

* 

V 

#ifhdcf_psdlcomp^h 

#define_psdlcomp_h 

#include <InterViews/Std/stdio.h> 

class Edge; 
class EdgeList; 
class Operator; 
class TextBuffer, 
class TextSelection; 
class EllipseSelection; 
class BSpIineSelection; 
class RectSelection; 
class Selection; 

class GraphComponoit { 
public: 

GraphComponent(SeIection •.TextSelection* « 0); 

-<3raphComponcnt0; 

void SctLabcl(TcxtSelcction*); 

TextSelection *GctLabcl(); 
char •GetLabelStringO; 
char •GctValidLabclStringO; 
int GetClassldQ; 

virtual void SctShape(Selection *s); 

Selection •GetShapeO {return shape;} 

protected; 

Selection *shape; 

TextSelection •label; 

GraphComponent •me; 

I; 


class Vertex : public GraphComponent { 
public: 

Vertcx(Sclcction*,TextSclection* « 0); 
“Vertex 0; 

void Setld(int newld) {id s newld;} 
int GetldO | return id; | 

TextSdeaion •GctMCT(); 
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char *GetMETString(); 
void SctTagCTcxtScIcction*); 

TextSelection* GctTagO {return tagScI;}; 
EdgeList ♦Getlnputs() {return inputs;) 

EdgeList *GetOutputsO {return ou^uts;) 

void AddInput(Edgc *); 

void AddC)utput(Edgc *); 

void AddState(Edge *) {}; 

void AddTrigger_If(char*) {} 

void AddTriggcr_All(char*) {} 

void AddTrigger_Some(char*) (} 

void AddTriggcrTo(char*) {} 

void GcnerateAda(FILE*); 

boolean HasTriggerByAll(char*); 

void WritcPSDL(FILE*); 

boolean HasConstraintsQ {return hasConstraints; ^ 
void WritePSDLConstraints(EILE*); 

protected: 

void WriteProcSpec(F[LE*,const char*); 
TextSdection *met; 

TextSdection *tagScl; 

EdgeList *inputs; 

EdgeList *ouq)uts; 
int id; 

boolean hasConstraints; 

); 


class Operator : public Vertex { 
public: 

Operator(EllipscSelection*,TcxtSelcction* -0, 
TextSelcction* = 0); 

-OpcratorO; 

EllipseSdection •GetEtlipsc(); 
void SetMET(TcxtSdection*); 

}; 


class Tenninator: public Vertex { 
public: 

Tefminator(RectSelection*,TextSelection* = 0); 
-TerminatoK); 

RectSclection *GetRect(): 

}; 


#defineSTATE^EDGEO 
#definc SAMp£eD_STREAM 1 
#define DATAFLOW_STREAM 2 

class Edge: public GraphCompon^it { 
public: 

Edge(BSplincSelection*, Vertex* = 0, Vertex* = 0, 
TextSelcction* «= OTcxtSclection* «=0); 
-EdgcO; 

BSplineSelection *GetBSpline(); 
void SctLat«icy(TcxtSelcction*); 

TcxtSdcction •GctLatcncyO; 
char *GetLalcncyString(); 

Vertex *GetFromOp() (return fromOp;) 
char *GetFromVcrtcxLabel(); 

Vertex *GctToOp() {return toOp;) 
char *GetToVertexLabel(); 
boolean IsStateQ {return state;} 
boolean IsStreamQ {return Istate;} 
int StreamTypeO; 
void SctDataTypc(char*); 
char *GetDataTypc(); 
void WritcTypc(FILE*); 

protected: 

TextSdection *latcncy; 

TcxtSdcction *tagSel; 

Vertex •fromOp; 

Vertex *toOp; 
char *dataTypc; 
boolean state; 



#cndif 


psdicomp.c 

/* 

* This file contains the implraientation for the following objects 

* GraphComponent, Vertex, Operator, Tciminator, Edge 

* These are the components of a PSDL graph. Each object 

* contains the idraw components necessary to create that 

* object in the editors drawing. GraphComponent serves as 

* the base class from which Vertex and Edge are derived directly. 

* Operator and Terminator are further derived from Vertex 

* 

* This file was created specifically for the CAPS graphic editor. 

* 

‘Created by: C.S£aglc 

* Last changes: November 9,1994 

* 

*/ 

#include "dfdclassesJi" 

#include "dfd_defs.h" 

#include ”istring.h" 

#include "listh" 

#include '’psdlcomp.h'' 

#include '’selection.h" 

#include "sltexUi" 

#include "slellipses.h*' 

#include "slpolygons.h" 

#include "slsplinesii" 

#include "psdllists.h" 

#include •^terViewsAextbofferJi> 


// GraphComponent constructor, me is for casting to subclasses 

GraphComponent::GraphComponent(Selection *s,TextSelection ‘Is) ( 
me »this; 

SetLabelGs); 

SetShape(s): 

) 


// GraphComponent destructor, leave shape up to subclasses 

GraphComponent::'“GraphComponcnt() { 
delete label; 

I 


// set the componmts label 

void GraphComponcnt::SctLabcl(TextSelcction *ls) { 
label M Is; 
if (Is) 

label->SetOwner(me); 

I 


// set the components shape 

void GraphComponent::SetShape(Selection ‘s) { 
shape ss; 
if (s) 

shape->SetOwner(me); 

) 


// retrieve the components label 

TextSelection *GraphComponent::GetLabelO { 
return label; 


// retrieve the components label string 


char *GraphComponcnt::GetLabclString() { 
return label ? label->GctStrmgO : 0; 

1 


// retrieve the label string with invalid chars removed 
// for use in ADA and PSDL texts 

char *GraphComponent::GetValidLabeIStringO { 
return label ? label->GctValidStringO : 0; 

} 


// retrieve the components class id 

intGraphComponent::GetClassId() ( 
return shapc->GetClassIdO; 

} 


// vertex constructor 

Vertcx::Vcrtex(Sclection *s, TcxtSclcction *18): GraphComponentfs) ( 
me = this; 

SetShape(s); 

SetLabdOs); 

inputs new EdgeList; 

outputs s new EdgeList; 

tagScI = 0; 

id = 0; 

met = 0; 

hasConstraints - 0; 

1 


// Vertex destructor 

Vertexii-VertexO | 
delete inputs; 
delete outputs; 
delete met; 

I 


// Set decomposition tag 

void Vertex::SctTag(TcxtSelection *ts) { 
tagSel «= ts; 
if(ts) 

tagSel->SctOwncr(me); 

) 


// retrieve the Vertex's MET 

TextSelcction *Vcrtcx::GctMET() { 
return met; 

) 


// retrieve the MET string 

char *Vertex:;GetMETString() { 
return met ? met->GetString(): 0; 

) 


// Add an Edge to the Vertex’s input list 

void Veitex::AddInput(Edge *e) { 
inpuis->Appcnd(new EdgeNode(e)); 



// add an edge to the vertex's output list 


void Vertcx::AddOutput(Edge *e) | 
outputs->App«id(ncw EdgeNodc(c)); 

I 


// write an ADA procedure specification for the Vertex 

void Vertcx::WriteProcSpcc(FILE *fptr, const char *pname) { 
int hasparm s 0; 

fprintf(fptr,"\tproccdurc %s",pnamc); 

for (inputs->Fiist(); !inputs->AtEndO;inputs->NextO) { 

Edge *ids = inputs->GetCur()->G^EdgeO: 
char *iparm * ids->GetValidLabelStringO; 
if (hasparm) { 
if (iparm) 

Q)rintf(^tr,";Nn\£St%s\t: TJNDEFlNED_TYPE"4p2i™)l 
else 

fprintf(fptr;‘;Nn\t\tUNDEFINED_NAME\t: UNDEHNEDJTYPE"); 

I 

else { 

hasparm = 1; 
if (iparm) 

fyrintf(fptr,"(%s\t: UNDEFINfED_TYPE"^parm); 
else 

^rintf(fptr "(UNDEFINED_NAME\t: UNDEFINED_TYPE"); 

) 

delete (] iparm; 

} 

for (ou^uts->Rrst(); !outputs->AtEndO;outputs->Next()) { 

Edge *ods = ou^uts->GetCurO‘>GctEdgcO: 
char ♦oparm = ods->GctValidLabelStringO; 
if (hasparm) { 
if (oparm) 

fprintf(fptr,";NnW%s\t: out UNDEHNEDJTYPE'',opaim); 
else 

fprintf(fptr,‘';NnNt\tUNDEFINED_NAME\t: out UNDEHNEDJTYPE"); 

I 

else ( 

hasparm = 1; 
if (opatm) 

^Kntf(fptr,''(%sNt: out UNDEFINED_TYPE",oparm): 
else 

fprintf(fptr,‘'CUNDEHNED NAMEVt: out UNDEHNED.TYPE"); 

} 

delete Q opaim; 

I 

if (hasparm) 
fprmtf(fptr,")"); 

I 


// gttierate ADA shell code for the vertex 

void Vertex;:GeneratcAda(nLE *fptr) { 
char *txt = GctValidLabclString(); 
fprintf(fptr,''package %s_PKG isNriVn", txt); 
WrileProcSpec(fptr,txt); 
fprintf(fptr,'';Nn\ncnd %s_PKG;NnNn*',txt): 
fprintf(fptr,"package body %s_PKG is\n\n",txt); 
WriteProcSpec(fptr,lxt); 
fprintf(fptr," isViV); 

fprintf(fptr,'’Stbegiri\nNt'StnulI:\n\taid %s;\nV,txt): 
fprintf(fptr,"cnd %s_PKG;",txt); 
delete txt; 

) 


// add a trigger by all constraint to the vertex 

boolean Vertcx:JlasTriggerByAIl(char *id) { 
if (id) I 
return false; 

I 
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return false; 


// write the PSDL specification for the vertex 

void Vertcx::WritcPSDL(HLE *fptr) { 
char *idstr = GetValidLabelStringQ; 
fprintf(fptr,"%s%sNn%s",OPER_TKN,idstr,SPEC_TKN): 
delete [] idstr, 

inputs->WritcStreamTypcs(fptrJNPUT_TKN); 
outputs->WritcStreamTypcs(fptr,OUTPUT_TKN); 
inputs->WritcStatcTypes(fptr," STATESNn"); 
if (GctOassIdO = OPERATOR) { 
if (met) { 

char *metstr = GctMETStringO; 
fprintf(fptr,"%s%sNn",MET_TKN,metstr); 
delete Q metstn 

I 


else 

fprintf(fptr,"%s 0\n",MET_TKN); 
fprintf(fptr,'%s"»END_'nCN); 

} 


// write the PSDL constraints for the vertex 

void Vertcx::WritcPSDLConstraints(FILE *fptr) { 
if (hasConstraints) { 

char *name «label ? GetValidLabclStringO ; 0; 
if (label) 

fprintf(fptr," %s%s\n",OPER_TKN,label); 
else 

!printf(fptr;‘ %s''.CON OP TKN); 

I 

I 


// Operator constructor 

Opcrator::C)pcrator(ElIipseSelection *e, TextSelcction *1$, TextSelcction •m): 
Vertex(e){ 
me ~ this; 

SctShapc(e); 

SetLabd(Is): 

SctMET(m); 

} 


// Operator destructor, shape handled here 

Operator;:'*Operator() { 
delete (EllipseSelection *) shape; 

) 


void Operator::SclMET(TcxtSelection •m) { 
met« m; 
if (m) 

mct->SetOwner(me); 

I 


// retrieve the Curators Ellipse shape 

EllipseSelection *Opcrator::GctEllipsc() { 
return (EllipseSelection •) shape; 

} 


// Terminator constmctor 

Terminator::Tcrminator(RectSelection •r, TextSelcction ^Is): 
Vertex (r) { 
me «this; 

SetShapc(r); 
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SetLabe] Qs); 

) 


// Terminator destructor, shape handled here 

Terminator::‘*'Terminator() { 
delete (RectSelection •) shape; 

) 


// retrieve the Tenninators Rect shape 

RectSelection *Tcnninator::GetRcct() { 
return (RectSelection *) shape; 

} 


// Edge constructor 

Edge::£dge(BSplineSelection *b. Vertex *from. Vertex *to, 
TextSelection *ls, TextSelection ♦lat): 
GraphComponent(b), fromOp(from), toOp(to) { 

me B this; 

dataType « 0; 

state = (to “ from) ? 1 :0; 

SetShape(b); 

SctLabcl(ls); 

SetLatoicyOat); 
if (Istate) ( 
b->SetStrcam(); 

b->SetaassId(DATAFIjOW SPLINE); 

I 

else 

l»SetaassId(SELFLOOP); 

} 


// Edge destructor, shape handled here 
Edge::-Edge() ( 

delete (BSplineSelection *) shape; 
delete latency; 


// retrieve the Edges BSpline shape 

BSplineSelection *Edgc::GctBSplineO { 
return (BSplineSelection •) shape; 

) 


// set the edges latoicy 

void Edge::SetLatCTcy(TextSelection •!) { 
if (state) return; 
latency «1; 

if(l) 

l->SetOwneKme); 

} 


// retrieve the edges latency 

TextSelection •Edge::GetLatancy() ( 
return latency; 

I 


// retrieve the string value for the latency 

char •EdgcrrGetLatcncyStringO { 
return latency ? latency*>GetString(): 0; 

I 



// get the label of the from vertex 


char •Edge;:GetFromVcrtexLabel() { 
return fromOp ? fromC)p->GctValidLabeIStringO ^ 0: 

1 


// get the label of the to vertex 

char *Edge::GetToVcrtexLabelO ( 
return loOp ? toOp“>GetValidLabeIString0 • Oi 

J 


// return the stream type of the edge 

intEdgeiiStreamTypeO { 
if (state) 

return STATEJEDGE; 
if (toOp) I 

char *id = GetValidLabelStringO; 
if CtoC)p->HasTriggerByAll(id)) 
return DArAFLOW_STREAM; 

) 

return SAMPLED_STREAM; 

} 


// set the data type for the edge 

void Edgc::SctDataType(char *dt) { 
if (dataTypc) 
delete Q dataTypc; 
if(clt){ 

dataTypc = new char[stricn(dt) + 1]; 
strcpy(dataType,dt); 

) 

} 


// return a copy of the edges dataTypc 

char •Edge::GetDataTypcO ( 
if (dataTypc) { 

char ‘temp = new char(strlcn(dataTypc)+l]; 
strcpy (temp ,dataTyp e); 
return temp; 

1 

return 0; 

) 


// ou^ut the label and type as a type declaration 

void Edgc::WritcTypc(FILE *fptr) | 
char *idstr = label ? label->GctValidString(): ID_TKN; 
if (dataType) 

fprintf(fplr," %s : %s"4dstr,dataTypc); 
else 

fjprintf(fptr," %s : UNDEFINED_TYPE"4dstr); 
delete [] i^tr; 

I 


psdllist$.h 


/* 

• This file contains the interafce for the following objects 

* VcrtcxNode, VertcxList» EdgeNode, EdgeList 

• These derive from the idraw components BascNodc and BascList 

* and are used to kecf track of the underlying dataflow diagram 

• represented by the current graph 

* 

• This file was created specifically for the CAPS graphic editor. 



* Created by: C.S.£agle 

* Last changes: November 9,1994 

* 

V 

#ifindef_psdllists.h 

#define_psdllists_h 

#inctude "listh" 

#includc <IntcrViews/defs.h> 
#include <IjnterVicws/Std/stdio.h> 

class BSplineSelection; 
class Edge; 
class EllipseSelection; 
class Operator, 
class TextSelection; 
class Selection; 
class Vertex; 


class VertexNode : public BaseNode ( 
public: 

VcrtexNodeCVertcx •v): vx(v) {) 
Vertex *GetVertex() {return vx;} 
protected: 

Vertex ♦vx; 

}; 


class VertexList: public BaseList { 
public: 

VertexListO; 

void Appcnd(VertcxNodc ♦); 
VertexNode* HrstQ; 

VertexNode* LastQ; 

VertexNode* Prev(); 

VertexNode* NextQ; 

VertexNode* GelCurQ: 

VertexNode* Index(int); 

void SetCur(Veitex*); 

Vertex* FmdOp(Coord, Coord); 
Vertex* FindOp(int); 

void R^lacc(Sclection*. Selection •); 
void Rcmove(Selcction*); 

protected: 
int currentid; 

}; 


inline VertexNode* VertexList::Rrsl() { 
return (VertexNode*) BaseList:-Jnrsl(); 

) 


inline VertexNode* VertexList: JLastO { 
return (VertexNode*) BaseList::LastO; 

} 

inline VertexNode* VertexList: iVcvQ { 
return (VertexNode*) BaseList: J*rev(); 

I 

inline VertexNode* VertexList: J^extQ { 
return (VertexNode*) BaseList: iNextQ; 

I 

inline VertexNode* VertexList: :GetCur() | 
return (VertexNode*) BascLisl::GetCurO; 

1 


inline VertexNode* VertexList: Jndex(int index) { 
return (VertexNode*) BaseList: jndex(index); 


class EdgeNode : public BaseNode { 
public: 

EdgcNodc(Edge *v): c(v) |} 

Edge "'GetEdgeO {return e;} 
protected: 

Edge *e; 

): 


class EdgeList: public BaseList { 
public: 

EdgeNode* First(); 

EdgeNode* Last(); 

EdgeNode* Prev(); 

EdgeNode* NextO; 

EdgeNode* GetCurO: 

EdgeNode* Index(int); 

void SetCur(Edge*); 

void Replace(Sclection*, Selection*); 
void Removc{Selection*); 

void WriteStrcamTypcs(FTLE*,char*); 
void WriteStateTypes(F[LE*,char*); 


); 


inline EdgeNode* EdgcList::FirstO ( 
return (EdgeNode*) BaseList: :First(); 

} 


inline EdgeNode* £dgeList::Last() { 
return (Edgd^ode*) BaseList::LastO; 

1 

inline EdgeNode* EdgeList; JVcvO { 
return (Edg^odc*) BaseList::Prev(); 

1 


inline EdgeNode* EdgeList::NextO { 
return (^gcNode*) BaseList:;Next(); 

) 


inline EdgeNode* EdgeUst::GetCur() { 
return (Edgd^ode*) BaseList::GetCur(); 
I 


inline EdgeNode* EdgeList::Index(int index) { 
return (^gcNode*) BaseList::Index(index); 

) 


#cndif 


psdllists.c 


/* 

* This file contains the implementation for the following objects 

* VcrtexNode, VertexList, EdgeNode, EdgeList 

* These derive from the idraw componoits BaseNode and BaseList 

* and arc used to keef track of the underlying dataflow diagram 

* represented by the cuitctiI graph 
» 

* This fi le was created specifically for the CAPS graphic editor. 

* 

* Created by: C.S.Ea^c 

* Last changes: November 9,1994 

* 

*/ 

#include ’'dfdclasses.h" 

#include "psdllists.h" 

#include "psdicompii'' 
tincludc "sllcxth" 

#include "slellipscs.h" 

#include ’’slsplinesh" 




// VeitexList constructor 


VcitcxList::VcrtcxListO: BaseList() { 

// initialize operator identification numbers 
currmtld = 1; 

) 


// Set curroit node in the list to the node containing v 

void VeitexList:;SetCur(Vertcx *v) { 
for (Rrst();!AtEndO;Next()) 
if (v = GctCurO->GetVertex()) return; 

) 


// Append the new node os to the tail of the list and 
// assign the new node a unique id number, 

void VertexList:*>Appaid(VeitcxNode *os) { 
BaseList::Append(os): 
if (os->GetVeitcxO->GctIdO) 
currentid = currentid > os->GetVcitcxO->GetId() ? 
currentid : os->GctVeitex()->GetId() + 1; 
else 

os->GetVertcx()->SctId(curTentId++); 

1 


// Set cunent node of list to be the one whose shape selection contains 
// the given point 

Vertex *VcrtexList:J^dOp(Coord x. Coord y) | 

Vertex *rval = 0; 

PointObj ^ = new PointObj(x,y); 
for (FirstO; !AtEnd(): NextQ) 
if (GetCur()->GetVertex()->GctShapcO'>Contains(p)) { 
rval = GetCurO'>GetVertcxO; 
break; 

I 

delete p; 
return rval; 

) 


// set the current node to the vertex whose id is vid 

Vertex •VertexList::FindOp(int vid) { 
for (FirstO: !AtEnd(); NextQ) 
if (GetCurO->GetVertcxO->GetId() = vid) 
return GetCuK)->GetVertex(); 
return 0; 

} 


// replace the operator component oldSel with newSel 

void VcrtexList::Replacc(Sclection *oldScl, Selection *newScl) { 

Vertex ‘v = (Vertex *) oldSeI->GetOwnerO: 
switch (oldSel->GetCIassId()) | 
case TERMINATOR; 
case OPERATOR: v->SetShape(ncwSel); 
break; 

case LABEL_OP: v->Setl^bcl((TcxtSeIection •)ncwScl); 
break; 

case MET_OP ; ((Operator *)v)->SctMET((TcxtSelcction •)newSel); 
break; 

I 

} 


// rwnove the indicated selection from an operator component 

void VcrtcxList::Rcmovc(Sclcction ‘s) { 

Vertex *‘v ■= (Vertex *) s->GetOwncrO: 
switch (s->GetQassIdO) { 
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case TERMINATOR : 
case OPERATOR : SetCur(v); 
DeleteCurO: 
delete v; 
break; 

case LABEL_OP: 
if(v){ 

v->SetLabel(nil); 
delete s; 

I 

break; 

case MET_OP: 
if(v){ 

((Operator *)v)*>SetMET(nil); 
delete s; 

I 

break; 

I 

) 


// set the cufTcnt node to the one containing e 

void EdgcList::SetCur(Edge *6) | 
for (FirstO;!AtEndO;NextO) 
if (c GctCurO->GctEdgeO) return; 

I 


// rq5lacc the Edge component oldSel with newSel 

void EdgeList::Rcplace(Selcction *oldScK Selection *ncwSel) { 
Edge ‘c — (Edge •) otdScl->GetOwncfO; 
switch (oldScl->GetClassId()) { 
case SELFLOOP: 
case DATAFLOW_SPLINE: 
e->SetShape(ncwSel); 
break; 

case LABEL_SL: 
case LABEL_DF; 

e->SetLabel((TextSelection •)ncwSel); 
break; 

case LAT_DF: 

e->SetLatency((TextSelcct!on •)newScl); 
break; 


I 


// remove the Edge component s from the appropriate edge in the list 

void EdgeList::Remove(Selcction *s) { 

Edge *e = (Edge *) s->GctOwner(); 
switch (s->GetClassld()) ( 
case SELFLOOP: 

case DATAFLOW_SPLINE: SetCurfe); 

DclclcCurO; 
delete e; 
break; 

case LABEL_SL: 
case LABEL_DF: 
if (c) { 

©->SctLabel(nil); 

deletes; 

I 

break; 

case LAT_DF: 

if(e){ 

e*>SctLatency(ml); 
delete s; 

I 

break; 

) 

I 
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// for all streams in the edgelist, output an appropriate 
// t)^e declaration 


void EdgeList::WritcStreamTypes(FnJE *fptr, char *hdr) { 
int count = 0; 

for (First();!AtEndO;Next()) { 
if (GetCur()->GctEdgc()->IsState()) 
continue; 
if (count++) 
fprintf(fptr,".\n"); 
else 

fprintf(fptr,"%s"4idr); 

GctCurO->GetEdgc()->WritcTypc(fptr); 

} 

if (count) 

^rintf(fptr,"\n"); 


// for all states in the list output an appropriate type declaration 

void EdgeList::WriteStatcTypes(FILE *fptr» char ♦hdr) { 
int count - 0; 

for (First();!AtEndO:NextO) { 
if (GetCurO'>GetEdgcO->IsStrcam()) 
continue; 
if (count++) 
fprintf(fptr,",\n"); 
else 

£printf(fptr,"%s"^dr); 

GetCurO->GetEdgc()->WritcTypc(fptr); 

1 

if (count) 
fprintf(fptr,'*Vn"); 


rubbands.h 

#ifiidef nibbands_h 
#define rubbands_h 

tinclude <InterViews/rubcurveii> 

#include <InterViews/rubline.h> 

#include <InterVicws/rubrccth> 

// An IStretchingRcct uses its first few Track calls to decide which 
// side it will let the user drag. 

class IStretchingRect: public StretchingRect { 
public: 

IStretchingRect(Paintcr*, Canvas*, Coord, Coord, C>3ord, Coord, 
Coord = 0, Coord = 0); 

void Track(Coord, Coord); 
void DcfineSidc(Coord, Coord); 

Alignment CurrentSide(boolean landscape); 

protected: 

boolean hrsttime;// stores true until after first call of Track 
boolean undefinedside;// stores true until side has been detennined 
Coord cx, cy;// stores original center of rectangle 
Coord origx, origy;// stores point passed by first call of Track 


// A RubberMultiline lets the user drag one of its vertices. 

class RubberMultiLine: public RubberVertex { 
public: 

RubberMultiLinc( 

Painter*, Canvas*, Coord pxQ, C^ord py[], int n, int pt, 
Coord offx » 0, Coord offy ■■ 0 
); 


void DrawQ; 


1 : 

// A RubberPolygon lets the user drag one of its vertices. 

class RubberPolygon : public RubberVerlcx { 
public: 

RubbcrPolygon( 

Painter*, Canvas*, Coord pxQ, Coord py[], int n, int pt. 
Coord offx = 0, Coord offy = 0 
); 

void DrawQ; 

}; 


#«idif 

rubbands.c 

#include "rubbandsJi" 

#include <IntcrViews/paintcrJi> 

// abs returns the integer's magnitude. 

inline int abs (int a) ( 
return a > 0 ? a : -a; 

} 


//IStretchingRcct starts with no defined side yet. 

IStretchingRect: JStretchingRect (Painter* p. Canvas* c. Coord xO, Coord yO, 
Coord xl. Coord yl. Coord offx, Coord offy) 

: (p, c, xO, yO, xl, yl, RightSide, offx, offy) { 
firsttime = true; 
undefinedside = true; 
cx = (fixedx + movingx) / 2; 
cy = (fixedy movingy) / 2; 

} 


//Track stores the point on the first call, decides which side 
// becomes the stretching side on the next call or two, and draws the 
// rectangle on all following calls. 

void lStretchingRcct::Track (Coord x. Coord y) { 
if (firsttime) { 
firsttime = false; 
origx = x; 
origy = y; 

} else if (undefinedside) { 

DefineSide(x, y); 

I else ( 

StretchingRect::Track(x, y); 

I 

I 


// DefineSide picks the side to stretch after the motion of the 
// tracking point becomes sufficiently unambiguous. 

static const Coord THRESHOLD = 2; 

void IStrctchingRcctriDcfineSide (Coord x. Coord y) { 
Coord dx = abs(x > origx); 

Coord dy » abs(y - origy); 

Coord xydiff = abs(dx - dy); 
if (xydiff>='raRESHOLD) { 
undefinedside » false; 
if (dx > dy) { 
if (x > cx) { 
side se Ri^tSide; 

I else { 

side e Leftside; 

) 

} else { 
if(y>cy) { 
side « Topside; 

1 else { 

side > BottomSide; 

I 
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} 


} 

) 


// CurrentSide returns the side that the user is dragging. 

Alignment IStretchingRect;:CurrentSide (boolean landscape) { 
Alignment s « Left; 
switch (side) { 
case Leftside: 

s = landscape ? Bottom : Left; 
break; 

case RightSide: 
s = landscape ? Top : Right; 
break; 

case TopSide: 
s * landscape ? Right: Top; 
break; 

case BottomSide: 
s = landscape ? Left: Bottom; 
break; 

I 

return s; 

I 

// RubberMultiLine passes its aigumoits to RubberVertex. 

RubberMultiLine;:RubberMultiLine ( 

Painter* p, Canvas* c, Coord px[]. Coord py[], int n, int pt, 
Coord ofTx, Coord offy 
): (p, c, px, py, n, pt, offx, offy) { 

/* nothing else to do */ 

} 


// Draw draws only the one or two line segments attached to the rubber 
// vertex. 

void RubberMultiLinc:;Draw 0 { 
if (x = nil II y — nil) { 
return; 

I 

if (Idrawn) ( 
int before » mbberPt • 1; 
if (before >«= 0) { 

Coord xO = x(bcfore]; 

Coord yO « yfbefore]; 

ou^ut->Line(canvas, xO+offx, yO+offy, trackx+offx, iracky+offy); 

I 

int after« ruW>crPt + 1; 
if (after <= count • 1) { 

Coord xl * x[after]; 

Coord yl « y[after]; 

output->Line(canvas, trackx+offx, tracky+offy, xl+offx, yl+offy); 

I 

drawn »true; 

1 

) 


// RubberPolygon passes its aipiments to RubberVntex. 

RubbcrPolygon::RubberPolygon ( 

Painter* p. Canvas* c, Coord px[], Coord py[], int n, int pt. 
Coord offx, Coord offy 
): (p, c, px, py, n, pt, offx, offy) | 

/* nothing else to do */ 

) 


// Draw draws only the two line segments attached to the rubber 
// vertex. 

void RubbcrPolygon::Draw 0 I 
if (x nil II y -= nil) ( 
return; 

I 

if (Idrawn) { 

int before »(ruW^erPt > 0) ? mbberPt -1 : count -1; 
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Coord xO = x[bcfore]; 

Coord yO = y[bcforc]; 

output->Linc(canvas, xO+offx, yO+offy» trackx+offx, tracky+offy); 
if (count > 2) { 

int after = (rubberPt < count -1) ? rubberl^ +1:0; 

Coord xl *= x[aftcr]; 

Coord yl « y[aftcr]; 

output->Line(canvas, trackx+offx, tracky+offy, xl+offx, yl+offy); 

I 

drawn = true; 

} 

} 


selecter.h 

/♦ Description: definition of class which gives user ability to select a 

* prototype name. 

« 

♦ Changes made by: Mdidi Rowshanaee 

♦ Last change made: October 1994 

*/ 

#ifndef selecter_h 
#define selecter_h 

#include <IntcrViews/strchooser.h> 

#include <InterViews^rame.h> 

#include <InterViews/stfbrowscr.h> 

/* 

* A Selecter allows the user to select the prototype he wants to use. 
*/ 

class Selector: public StringChooser ( 
public: 

SelectcrCInteractor*, const char*. Alignment); 
char* SelectO; 
void lnsert(char**); 
void SetErrorTitIe(const char*); 
void ClcarO {browser()->Clear();) 

protected: 

void lnit(const char*); 

Intcractor* InteriorO; 

boolean Popup(Ev«it&, boolean = true); 

Intcractor* underlying; // parent interactor that well overlay 

private: 

Interactor* AddScroIIer(Intcractor*); 

StringBrowscr* browserf) 1 return (StringBrowscr*)_browser; ) 

MarginFramc* title; 

Margii^rame* crror_titlc; 

Alignment align; 

); 


#endif 

$eiecter.c 

#include ‘'selecter.h" 

#include <JntcrVicws/button.h> 
#include ^terViews/evenLh> 
#include <IntcrViewsA’rame.h> 
#include <IntcrViewsAnessage.h> 
#include <InterVicws/strcditor.h> 
#include <IntcrVicwsAvorld.h> 
tincludc <InterVicws/glue.h> 
tinclude <intcrViews/boxJi> 
#include <lnterViewsA)ordcrit> 
tincludc <IntcrViews/adjustcr.h> 
#include <InterViews/scrollerJi> 
#include <InterViews/scnsorJt> 
#includc <IntcrViews/Std/stringii> 
#define_^string_h 



#include "istring.h" 

#include <stdio.h> 

#include <sys/types.h> 

#include <sys/dir.h> 

!* #include <stfingJi> *! 

int comparc_succcssful(char*, const char*); 
char* define_extcnsion(const char*); 

void find_prototype_names(char** prototypc_array, char* dir, const char* func) 

i 

DIR* pdir« opcndir(dir); 
boolean successful = pdir !=NULL; 
struct direct* d; 
char* name; 

int no_of_prototypes * 0; 

if (successful) 

{ 

for (d «readdir(pdir); d 1* NULL; d * readdirfpdir)) 

I 

int compare_result compare_successful(d->d_namc, func); 
if (comparc_rcsult) 

( 

name = new char [comparc_result + 1]; 

stmcpy(name, d‘>d_name, compare_result); 
name[compare_resultj = ''O'; 

prototypc_aiTay[no_of_prototypcs] * new char(strlcn(namc)+l]; 
strcpy(prototype_array[no_of_prototypcs++],name); 

I 


I 

prototype_aiTay(no_of_prototypes] « nil; 
closcdir(pdir); 

I 

int compare succcssful(char* filename, const char* func) 

I 

char* extension; 
extension s ".graph"; 

int filwiamejen « strlcn(fil«iame); 
int extjen = stricn(extcnsion); 

if (filenamejen < ext_lcn) 
return 0; 
else 
{ 

int limit * filenamejen - extjen; 
for (int i « 0; i <= limit; ++i) 

I 

if (stmcmp(filename + i, extension, extjen) = 0) 
return i; 

I 

return 0; 


Selectcr::Sclcctcr (Interactor* u, const char* t, Alignment a): 
SlringChooscr(new ButtonState, 10,24,a) 

I 

align Ba; 
underlying * u; 

Init(t); 

Scene: iInseri(Intcrior()); 

} 


char* Selecter::Select () 

1 

char* name^l; 

Event e; 
if (Popup(c)) 
name «(char *)Choicc0; 

return name; 

I 
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void Selecter::Insert(char** name_a!Tay) 

( 

for (int i *0; name_aiTay[i] !=nil; -H-i) 
browscrO->Appcnd(nanic_array[ij); 

} 


void Selcctcr::Init(const char* t) 

( 

if(n*= V)') 

title * new MarginFrame(new VGlue(0,0)); 
else 

title ® new MarginFramefnew Message(t)); 
errorjitle » new MarginFramc(ncw VGlue(0,0)); 

I 


Interactor* Selccter: Jntcrior () 

I 

const int space = round(.5 * cm); 

VBox* erroiblock = new VBox( new HBox(crror_titlc, new HGluc) ); 

VBox* titleblock = new VBox( new HBox(titlc, new HGluc) ); 

return new Frame(new MarginFrame 

(new VBox( crrorblock, titleblock, 
new VGlue(space,0)4icw Ffamc(AddScroller(browscrO))» 
new VBox( 
new VGlue(spacc,0), 
new Frame( 

new MarginFrame(_scdit,2))), 
new VGlue(space,0), 
new HBox( 
new VGlue(space,0), 
new HGluc, 

new PushButtonC’Cancel", state, V)07'), 
new HGlue(space,0), 
new PushButtonC'Sclcct", state, VO 
) 

), space, space/2,0 

),2 

); 

} 


boolean SeIecter:*J*opup (Event&, boolean) 

( 

World* world = underlying->GctWorid(); 

Coord X, y; 

undcrlying->Align(align, 0,0, x, y); 
underlying->GctRclativc(x, y, world); 
world->InsertTransicnt(this, underlying, x, y. align); 
boolean acc^ted * AcceptO; 
world->Removc(this); 
return accepted; 

I 


Interactor* Sclcctcr::AddScroller(lnteractor* i) 

I 

return new HBox( 

new MarginFiame(i,2), 
new VBordcr, 
new VBox( 
new UpMover<itl)f 
new HBorder, 
new VScrolleKi). 
new HBorder, 
new DownMover(i,l) 

) ); 

I 

void ChangeMsg(const char* name, MarginFrame* frame) 

I 

Intcractor* msg; 

if (‘name »= NO*) 
msg » new VGIueCO.O); 

else 

msg ■ new Message(name); 



frame->Insert(msg); 

frame->Change(msg); 

} 

void Selecter::SetErrorTitle(const char* name) 

{ 

ChangcMsg{namc, error title); 

} 


seiection.h 

#definc KERNEL 

#ifadef selection_h 
#definc selection_h 

#include <InterViews/Graphic/picture.h> 

// Declare imported types. 

class GraphComponent; 
class Rubberband; 
class RubberVcrtex; 
class State; 
class istream; 
class ostream; 

// PostScript file format changes. 

static const int ORIGINALVERSION = 1; // ori^al format 
sUtic const int FGCOLORVERSION * 2; // added foreground color 
static const int NONREDUNDANTVERSION = 3; // eliminated unnecessary text 
// pattern and duplication of 
// font name, transformation matrix, 

//poly points, and text data 

static const int FGANDBGCOLORVERSION = 4; // added background color and 
// RGB values for overriding names; 

// used graylevel to eliminate 
// redundant pattemfill data 

static const int GRIDSPAQNGVERSION = 5; // added grid spacing 
static const int NONROTATEDVERSION = 6; // replaced rotation of drawing with 
// rotation of view for landscape 

static const int TEXTOFFSETVERSION « 7; // changed text positions on screen 
// and improved accuracy of 
// text positions on printout 

// Other constants. 

static const int ARROWHEIGHT * 8; // how long arrows are in points 

static const int ARROWWIDTH = 4; // how wide arrows are in points 

static const int BUFSIZE * 256; // size of buffer for reading data 

static const int HDSIZE = 5; // how wide handles are in points 

// A Selection can draw handles around itself and create a reshaped 
// copy of itself. 

extern const char* startdata; // signals place to read valid data 

class Selection : public Picture ( 
public: 

Sclcction(ClassId, Graphic* » nil); 

Sclection(Graphic* = nil); 

-~SclcctionO; 

Graphic* CopyQ; 
boolean HasChildrenO; 

void GctPaddcdBox(BoxObj&); 

void DrawHandles(Paintcr*, Canvas*); 

void ErascHandles(Painter*, Canvas*); 

void RedrawHandlesfPainter*, Canvas*); 

void RcdrawUnclippedHandles(Paintcr*, Canvas*); 

void ResetHandlesQ; 

virtual boolean ShapedBy(Coord, Coord, float); 
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virtual Rubbcrt>anci* CreateShape(Coord, Coord); 
virtual Selection* GetReshapedCopyO; 

virtual void WriteData(ostream&); 

void SetClassId(QassId); 

Classid GetClassldO; 
boolean IsEdgeComponentO; 
boolean IsVcrtcxComponentO; 
void SetOwncr(GraphComponent *o) {owner = o;} 
GraphComponent* GetOwncr() (return owner,} 

protected: 

void Skip(istream&); 
void ReadVcrsion(istream&); 
void ReadGridSpacing(istream&, State*); 
void ReadGS(istream&, State*); 
void ReadPictGS(istream&, State*); 
void ReadTcxtGS(istream&, State*); 
void ReadBrush(istream&, State*); 
void RcadFgColor<istream&, State*); 
void RcadBgColor(istream&, State*); 
void ReadFont(istream&, State*); 
void ReadPattem(istreani&, State*); 
void Rca<frransformer(istrcam&); 
float CalcGrayLevel(int); 

void Wrile\fersion(ostream&); 

void WritcGridSpacing(ostream&, State*); 

void WriteGS(ostream&); 

void WritcPictGS(ostreani&); 

void WritcTextGS(ostrcafn&); 

void WriteBrush(ostrcam&); 

void WritcFgColor(ostrcam&); 

void WriteBgColor(ostream&); 

void WriteFont(ostreani&); 

void WritePattem(ostrcam&); 

void WriteTransformeKostream&); 

virtual void CreatcHandlesQ; 
void DeleteHandlesO; 

Rubberband* handles;// contains handles outlining Selection 

static char buf{BUFSIZE];// contains storage for reading data 
static int versionnumber;// stores version of drawing read from file 
Classid cid; // stores type of selection 

GraphComponent *owner, 

}; 


// An NPtSelection knows how to create handies, read or write its 
// points, and draw arrowheads so many subclasses can reuse the same 
// code. 

class NPtSelection : public Selection { 
public: 

NPtSclectionCClassId, Graphic*); 

NPtSelcction(Graphic*); 

virtual int GctOriginal(const Coord*&, const Coord*&); 
boolean ShapcdByfCoord, Coord, float); 

Rubberband* CreateShapefCoord, Coord); 

Selection* GetReshapedCopyO; 

Gassid GetOassldO; 

protected: 

void RcadPoints(istream&, const Coord*&, const Coord*&, int&); 
void WriteData(ostream&); 

virtual RubberVertex* CreatcRubbcrVertexfCoord*, Coord*, int, int); 
virtual Selection* CreatcReshapcdCopyfCoord*, Coord*, int); 
void CreateHandlesO; 
void TotaITransform(Coord*, Coord*, int); 
void InvTotalTransformfCoord*, Coord*, int); 
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int ClosestPoint(Coord*, Coord*, int. Coord, Coord); 


boolean LcftAcont(Coord, Coord, Coord, Coord, PointObj&, Graphic*); 
boolean RightAcont(Coord, Coord, Coord, Coord, PointObj&, Graphic*); 
boolean LeftAints(Coord, Coord, Coord, Coord, BoxObj&, Graphic*); 
boolean RightAints(Coord, Coord, Coord, Coord, BoxObj&, Graphic*); 
void drawLeftA(Coord, Coord, Coord, Coord, Canvas*, Graphic*); 
void drawRightA(Coord, Coord, Coord, Coord, Canvas*, Graphic*); 
float MergcArrowHeadToKfloat, Graphic*); 

boolean ArrowHeadcont(Coord, Coord, Coord, Coord, PointObj&, Graphic*); 
boolean AnowHeadints(Coord, Coord, Coord, Coord, BoxObj&, Graphic*); 
void drawAiTOwHcad(Coord, Coord, Coord, Coord, Canvas*, Graphic*); 
void SetCrM(Coord, Coord, Coord, Coord, Graphic*, boolean); 
void RcstoreCrM(Graphic*); 
float Slope(float, float); 

const char* myname;// tells which NPtSelection subclass this is 
RubberVertex* rubbervertex;// tells us how the user wants to reshape us 


}; 


#endif 


selection.c 


#define _POSIX_SOURCE 
#dcfine KERNEL 
#include "dfdclasses.h'' 

#include "ipainth" 

#include "istring.h” 

#include "listifonth" 

#include "mapipainth" 

#include "selcction.h" 

#include "state.h'' 
finclude <InterVicws/StdAnath.h> 
tincludc <InterViews/rubcurveJi> 
#include <InterViewsAransformcr.h> 
#inc1ude <InterViewsAJraphic^til.h> 
#include <stream.h> 

#dcfine KERNEL 

// #include <InterViews/Std/stdio.h> 


/* 

* Define the start of data token. 

V 

const char* startdata = 
f* 

* Selection starts off with no handles and class id set 
*/ 

Selection "Selection (Classid classid. Graphic* gs): (gs) 

I 

handles nil; 
cid = classid; 
owner « 0; 

I 

!* 

* Selection starts off with no handles and unknown class id. 

•/ 

Selection;:Selection (Graphic* gs): (gs) 

{ 

handles « nil; 
cid K NONE; 
owner = 0; 

I 

/* 

* Free storage allocated for the handles if any. 

*/ 
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Selection ::-Selection () 

{ 

DeleteHandlesO; 

I 


/* 

* Copy returns a copy of the Selection. 

*/ 

Graphic* SelectionnCopy () 

I 

return new Selectionfthis); 

1 


/* 

* HasChildren returns false so Idraw won't ungroup this Picture. 

*/ 

boolean Selection: JIasChildren () 
return false; 

) 

/* 

* GetPaddedBox returns the Selection's smallest box with enough 

* padding added to include its handles. 

»/ 

void Selection::GetPaddedBox (BoxObj&box) 

1 

Picture::GetBox(box); 

const int HDPAD = HDSIZE/2 + 1; /* how much to add to GetBox's size •/ 

box.left -= HDPAD; 

box.bottom -= HDPAD; 

box.right += HDPAD; 

box.top += HDPAD; 

I 


/* 

* DrawHandles tells the handles to draw themselves unless they've 

• already drawn themselves. 

•/ 

void Selection::DrawHandle5 (Painter* rasterxor, Canvas* canvas) 

1 

if (handles = nil) 

{ 

CreateHandlesO; 

I 

handles->SetPainter( rasterxor); 
handles->SetCanvas(canvas); 
handles->DrawO; 

1 


/* 

* EraseHandles tells the handles to erase themselves unless they've 

* already erased themselves. 

*/ 

void Selection;£iaseHandles (Painter* rasterxor, Canvas* canvas) 

I 

if (handles !=nil) 

I 

handles->SetPainter( rasterxor); 
handles->SetCanvas(tranvas); 
handles->Erase(); 

1 

I 

/* 

* RedrawHandles knows for sure that no unerased handles remain on the 

* screen, so it resets the handles to outline the Selection's 

* possibly different shape and location before drawing the handles. 

*/ 
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void Sclcction::RedrawHandlcs (Painter* rasterxor. Canvas* canvas) 

{ 

DeleteHandlcsO; 

DrawHandles(rastentor, canvas); 

} 

f* 

* RedrawUnclippedHandles knows that some unerased handles probably 

* mnain on the screen so it can’t reset the handles, but it can tell 

* the handies to draw themselves whether or not they've already drawn 

* themselves because the painter will clip the already drawn handles. 

*/ 

void Selection;;RedrawUnclippedHandles (Painter* rasterxor. Canvas* canvas) 

i 

if (handles ^ nil) 

I 

CrcateHandlesQ; 

} 

handles->SetPaintcr(rasterxor); 

handles->SctCanvas(canvas); 

handles*>Rcdraw(); 

1 

/* 

* ResetHandles deletes the handles since the Selection may have moved 

* out from under than. Redrawing the handles will recreate them. 

*/ 

void Selection::ResetHandIes 0 

{ 

DeleteHandlesO; 

1 

/* 

* ShapedBy returns false since the Selection does not contain any 

* points whidi both determine its shape and fall within the givw 

* distance of the given point. 

*/ 

boolean Selection;:ShapedBy (Coord, Coord, float) 

I 

return false; 

1 

/• 

* CreateShape creates and returns a Rubberband representing the 

* Selection's shape for the user to reshape. 

•/ 

Rubberband* Selection;;CreateShape (Coord, Coord) 

I 

return nil; 

I 

/* 

* GetReshapedCopy creates and returns a copy of the Selection 

* incorporating the change made to its shape. 

*/ 

Selection* Selection::GctRcshapcdCopy 0 

I 

return nil; 

) 

/* 

* Skip skips over tokens in the input stream until it reads a start 

* of data tokoi or reaches eof. 

*/ 

void Selection::Skip (istream& from) 

I 

while (from » buf && strcmp(buf, startdata)!» 0) 

1 

/* skip Postscript code •/ 

1 
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/* 

* ReadVcrsion reads the drawing's version number. Knowing the 

* drawing's version number allows us to invoke backward compatibility 

* code if necessary or detect an incompatibility ahead of time. 

*/ 

void Selection::ReadVersion (istream& from) 

I 

Skip(from); 
from » buf; 

if (strcmp(buf, ’Idraw") = 0) 

\ 

from » versionnumber, 

} 

else 

{ 

versionnumber« ORIGINALVERSION; 

} 

if (versionnumber > TEXTOFFSETVERSION) 

I 

fprintf(stdeiT» "warning: drawing version %d ", versionnumber); 
fprintf(stderr, "newer than idraw version %d\n", TEXTOFFSETVERSION); 

I 


/* 

* ReadGridSpacing reads the grid spacing used by the drawing and 

* stores the new grid spacing value. It must correct the default 

* grid spacing it gives to old drawings for an implementation botch 

* in Interviews 2.4 that calculated point's value incorrectly using 

* 72.07flnch instead of inch/72.27 (it was a botch in TWO ways). 
*/ 

void Selcction::RcadGridSpacing (istrcam& from. State* state) 

I 

double g = state->GetGrid$pacingO; 
if (versionnumber < GRIDSPACINGVERSION) 

( 

const int oldspacing s 8; 

const double oldpoints « 72.07Anches; 

g = oldpoints * round(oldspacmg * oldpoints); 

} 

else 

I 

from » buf; 

if (strcmp(buf, "Grid") = 0) 

{ 

from » g; 

) 

) 

state->SetGridSpacing(g); 

I 


f* 

* ReadGS reads data to initialize the graphic state for Selections 

• which don't contain any text 

•/ 

void Selection::ReadGS (istream& from, State* state) 

{ 

ReadBnish(from, state); 

if (versionnumber >= FGANDBGCOLORVERSION) 

{ 

RcadFgColor(from, slate); 

ReadBgColor(from, state); 

SctFont(ml); 

1 

else if (versiormumbcr >« FGCOLORVERSION) 

I 

ReadFgColorffrom, state); 

IColor* bg statc->GctMapIBgColorO->GetInitialO; 
SetColors(GctFgCoIor(), b^; 

SetFont(nil); 

I 
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else 

{ 

IColor* fg = statc->GctMapIFgColorO->GetInitial(); 
IColor* bg « statc->GetMapIBgCoIorO->GetInitia!0; 
SctCoIors(fg, bg); 

RcadFont(from, state); 

I 

RcadPattem(from, state); 

ReadTrans fo rmcr(from); 


/• 

* ReadPictGS reads data to initialize the graphic state for 

* PictSelections which may contain some text. 

V 

void Selection:;ReadPictGS (istream& from, State* state) 

{ 

ReadBmshCfrom, state); 

if (versionnumbcr >- FGANDBGCOLORVERSION) 

{ 

ReadFgColor(from, state); 

ReadBgColor(from, state); 

I 

else if (versionnumbcr >= KjCOLORVERSION) 

( 

RcadFgColor(from, state); 

SctColors(GetFgCoIor(), nil); 

1 

else 

( 

SetColors(nil,nil); 

I 

ReadFont(from, state); 

ReadPattcm(from, state); 

RcadTransformeKfrom); 

I 

/• 

* ReadTextGS reads data to initialize the graphic state for 

* TextSelections which don't need a brush or pattern. 

*1 

void SeIection::ReadTextGS (istream& from, State* state) 

{ 

if (vcreionnumber >= FGCOLORVERSION) 

I 

Setfirush(nil); 

ReadFgColor(from, state); 

SetColors(GctFgColor(), nil); 

I 

else 

1 

ReadBru5h(from, state); 

SetColors(statc->GctMapIFgColor()->GctInitial(),nil): 

I 

ReadFont(from, state); 

if (versionnumbcr < NONREDUNDANTVERSION) 

{ 

RcadPattcm(from, state); 

IPattcm* pattern « (IPattem*) GetPattcmO; 

float graylcvel *= pattem->GctGrayLcvclO; 

const char* c = "Black"; 

int r ■> 0, g »= 0, b 0; 

if (graylcvel !« 0 && graylcvel != -1) 

I 

if (graylcvel **5 1) 

{ 

c * "White"; 
r*g = b*65535; 

1 

else 

{ 

c » "Gray"; 
r«g-b*49l52; 

I 
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) 

SetColors(siate->GetMapIFgColor()->FindOrAppend(c, r, g. b)» nil); 

1 

else 

{ 

SetPattem(nil); 

} 

ReadTransfonner(from); 

if (versionnumber < TEXTOFFSETVERSION) 

{ 

IFont* f =: (IFont*) GetFontQ; 
float xO, yO, xl, yl; 
transform(0.0,0.0, xO, yO); 

transform(0.0, fioat(f->GctLineHtO - f->HcightO -1), xl, yl); 
floatdx = xl -xO; 
float dy * yl - yO; 

Translate(dx, dy); 

J 

} 


/* 

* ReadBrush reads data to set the Selection's brush. 

*/ 

void Selection::ReadBnish (istream& from, State* state) 

I 

SkipCfrom); 
from » buf; 
if(bufI0] = 'b') 

I 

char lookahead «'u'; 

boolean undeflned s false; 

boolean none « false; 

int p = 0; 

int w » 0; 

int 1« false; 

int r s false; 

from »lookahead; 
from.putback(look ahead); 
switch (lookahead) 

I 

case V: 

undefined = true; 
break; 
case "n': 
none «trae; 
break; 
default: 

from » p » w » 1» r, 
break; 

} 


if (undefined II Ifrom.goodQ) 

i 

SetBrush(nil); 

I 

else 

I 

MapIBrush* mb* state->GctMapIBrush(); 

IBrush* brush « mb->FindOrAppend(nonc, p, w, 1, r); 
SctBrush(brush); 

I 

} 

} 


• ReadFgColor reads data to set the Selection's foreground color. 

*/ 

void Selcction::ReadFgCoior (istrcam& from. State* state) 

I 

Skip(from); 
from » buf; 
if (buf(0] ** 'c' && 

(buffi] TII versionnumber < FGANDBGCOLORVERSION)) 



{ 

char lookahead 3= 'u'; 
boolean undefined « false; 
char name[100]; 
float fr = 0, fg = 0, fb = 0; 

from »lookahead; 
from.putback(lookahead); 
if (lookahead = 'u') 

I 

undefined = true; 

) 

else 

{ 

from » name; 

if (vcrsionnumber >= FGANDBGCOLORVERSION) 

{ 

from » fr» fg »fb; 

) 

) 


if (undefined II !from.good()) 

{ 

SetColors(nil, GetBgColorO); 
else 

I 

int r = round(fr * Oxffff); 
int g = round(fg * Oxffff); 
int b - round(fb * Oxffff); 

MapIColor* mfg = state->GctMapIFgColorO; 

IColor* fgcolor»mfg->FindOrAppend(namc, r, g, b); 
SetColors(fgcolor, GctBgColor()); 

} 

) 

) 

/• 

* ReadBgColor reads data to set the Selection's background color. 
•/ 

void Selection:;RcadBgColor (istream& from. State* state) 

I 

Skip(from); 
from » buf; 

if (buf[0] 'c' && bufllj — 'b') 

i 

char lookahead = 'u'; 
boolean undefined = false; 
char name[100]; 
float fr = 0, fg = 0, fb s! 0; 

from »lookahead; 
from.putback(lookahead); 
if (lookahead = 'u') 

I 

undefined * true; 

I 

else 

I 

from » name » fr » fg »fb; 

) 


if (undefined II Ifrom.goodO) 

I 

SctColors(GetFgColorO, nil); 

1 

else 

{ 

int r * round(fr * Oxfiff); 
int g «* round(fg • Oxffff); 
int b «round(fb * Oxffff); 

MapIColor* mbg » state->GctMapIBgColor(); 

IColor* bgcolor« mbg->FindOrAppend(name, r, g, b); 
SetColors(GetFgColorO, bgcolor); 

I 



/* 

* RcadFont reads data to set the Selection's font 
*/ 

void Selcction::ReadFont (istreain& from, State* state) 

{ 

Skip(from); 
from » buf; 
if(buf[0] = 'f) 

I 

char lookahead » V; 
boolean undefined = false; 
char name[100]; 
char printfont[l 00]; 
char printsize[100]; 

from »lookahead; 
from.putback(lookahead); 
if (lookahead sa= V) 

{ 

undefined * true; 

I 

else 

{ 

from » name; 
from » printfont; 
from » printsizc; 

} 

if (undefined II Ifrom.goodQ) 

{ 

SctFont(ral); 

1 

else 

{ 

MapIFont* mf « siate->GetMapIFontO; 
char* pf = (versionnumber >= NONREDUNDANTVERSION) ? 
&printfont(l]: printfont; 

IFont* font * mf*>FindOrAppcnd(name, pf, printsize); 
SetFont(font): 

} 

I 

) 


r 

* ReadPattem reads data to set the Selection's pattern. 

*/ 

void Sclcction::RcadPattcm (istream& from. State* state) 

{ 

Skip(from); 
from » buf; 
if(buf[0] = ’p’) 

I 

char lookahead = 'u'; 
boolean undefined = false; 
boolean none <= false; 
float graylevei * 0; 
int data[pattcmHei^t]; 
ini sire * 0; 

from »lookahead; 
switch (lookahead) 

I 

case V: 

undefined = true; 
break; 
case 'n': 
none® true; 
break; 
case ‘c*: 
graylevei »-l; 
break; 
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default: 

f rom .putback (] 0 ok ah ead); 
break; 

I 

if (lundefincd && !nonc && graylevcl != -1) 

I 

if (vcreionnumbcr >= FGANDBGCOLORVERSION) 

{ 

from » graylevel; 

) 

else 

{ 

from » data[0]; 

graylevel = CalcGrayLevel(data[0]); 

I 

1 

else if (graylevel = -1) 

( 

for (int i = 0; from » buf && i < patteiriHcight; i++) 

( 

if ((buflO) = ■>') II (sscanffbuf, "%x", &data[i]) != 1)) 

( 

break; 


iffbuflOJ^^O 

( 

size = i; 

1 

else 

( 

undefined = tme; 

I 

1 

if (undefined II !from.good()) 

I 

SetPattem(nil); 

I 

else 

I 

MapIPattem* mp » statc->GctMapIPattemO; 

IPattem* pattern = mp->FindOfAppend(none, graylevel, data, size); 
SctPattem(pattcm); 

} 

) 

} 


/* 

* ReadTransformer reads data to set the Selection’s transformation 

* matrix. 

V 

void Sclcction::ReadTransfoimcr (istream& from) 

I 

Skip(from); 
from » buf; 
if(buf[0]«-’t') 

I 

char uorbracket «= Hi'; 
boolean undefined » false; 
float aOO, aOl, alO. all, a20, a21; 

from » uorbracket; 
if (uorbracket = 'u') 

{ 

undefined = true; 

I 

else 

I 

if (versionnumber < NONREDUNDANTVERSION) 

I 

from.putback(uorbracket); 

1 

from »a00 » aOl » alO »all » a20 »a21; 
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) 

if (from.goodO && Iiuidefined) 

( 

SctTransfonncKnew Transfonner(aOO, aOl, alO, all, a20, a21)); 

I 

) 

1 


/* 

* CalcGrayLevel calculates a 4x4 bitmap's gray level on the printer. 

* Since the gray level ranges from 0 = solid to 1 = clear, 

* CalcGrayLevel counts the number of 0 bits in the bitmap and divides 

* the sum by the total number of bits in the bitmap. 

•/ 

float SelectionuCalcGrayLevel (int seed) 

1 

const int numbits = 16; 

int numzeros = 0; 

for (int i = 0; i < numbits; i++) 

I 

numzeros += !((seed »i) & 0x1); 

) 

return float(numzeros) / numbits; 

1 

I* 

* 'IVriteData writes everything needed to draw or reconstmet the 

* Selection. 

•/ 

void Selection::WriteData (ostream&to) 

( 

r define it in your subclass */ 

) 


I* 

• Write Version writes the drawing's version number. Storing a 

• vereion number with the drawing makes backward compatibility easier 

* to support when the drawing foimat changes in the future. 

•/ 

void SelectionuWriteVersion (ostream&to) 

( 

to « startdata « " Idraw " « TEXTOFFSETVERSION « " ”; 

1 

/* 

• WriteGridSpacing writes the drawing's grid spacing. Storing the 

* grid spacing with the drawing ensures graphics will remain aligned 

• to the grid they were aligned to before. 

»/ 

void Selection::WriteGridSpacing (ostream& to. State* state) 

I 

to « "Grid " « state->GetGridSpacingO « " 

I 

r 

* WriteGS writes the graphic state for Selections that don't contain 

♦ any text. 

•/ 

void Selection::WriteGS (ostream& to) 

{ 

WriteBrush(to); 

WriteFgColor(to); 

WriteBgColorfto); 

WritePattem(to); 

WriieTransfomerfto); 

I 


r 

• WritePictGS writes the graphic state for PictSelections which may 

* contain some text 
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void Sclcction::WritcPictGS (ostrcam& to) 

I 

WriteBrush(to): 

WriteFgColor(to); 

WriteBgColoKto); 

WriteFont(to); 

WritePattem(to); 

WriteTransformeKto); 


/• 

• WriteTextGS writes the graphic state forTextSelections which 

* don't need a brush or pattern but do need a font 

*/ 

void SelectiontWriteTextGS (ostream& to) 

( 

WriteFgColor(to); 

WriteFont(to); 

WriteTransfomieKto): 

1 

/* 

* WriteBrush writes the Selection's brush. 

*1 

void Selcction::WriteBmsh (ostrcam& to) 

I 

EBiush* brash = (IBrash*) GetBrashQ; 
if (brush = nil) 

( 

to « staitdata « " b u\n"; 

) 

else if (brash->NoneO) 

{ 

to « "none SetB ” « startdata « " b n\n"; 

I 

else 

{ 

int p = brash->GetLinePattemO; 

to « stattdata « " b " « p «'V"; 

int w = bnish->Width(): 

boolean 1 = brash->LeftArrow(); 

boolean r = btush->RightArrow(); 

to « w « " " «1« " " « r « " 

const int* dashpat = brash->GctDashPattcm(): 

int dashpatsize = brash->GetDashPattemSize(); 

int dashoffset« brash->GctDashOffsct(); 

if (dashpatsize <= 0) 

I 

to « "[] " « dashoffeet« " 

I 

else 

1 

to « 

for (int i = 0; i < dashpatsize -1; i+-i-) 

I 

to « dashpat[i]« “ 

I 

to « dashpat[i]« "] " « dashoffset« " 

I 

to « "SetBW; 

I 

) 

r 

• WriteFgColor writes the Selection's foreground color. 

•/ 

void Sclcction::WritcFgColor (ostrcam& to) 

I 

IColor* fgcolor - (IColot*) GetFgColoK); 
if (fgcolor “ nil) 


to « staitdata « " cfg uNn"; 

} 

else 

I 

const char* name » fgcolor->GetNameO; 
to « startdata « " cfg " « name « "\n'‘; 
if (strcmp(name, "white") ss= 0II strcmp(namc, "White") *= 0) 
{ 

to « "1 1 1 SrtCFg\n"; 

} 

else 

I 

int r, g, b; 

fgcolor->Intcnsities(r, g, b); 

float fr = float(r) / Oxffff; 

float fg =s float(g) / OxfRf; 

float fb = float(b) / Oxffff; 

to « fr « " " « fg « " " «fb « " SctCFgNn"; 

I 

} 


/* 

* WriteBgColor writes the Selection’s background color. 

*/ 

void ScIection::WriteBgColor (ostream& to) 

{ 

IColor* bgcolor * (IColor*) GetBgColor(): 
if (bgcolor = nil) 

I 

to « staitdata « " cbg uV; 

I 

else 

( 

const char* name = bgcolor->GetNameO; 
to « startdata « " cbg " « name « "vn"; 
if (strcmpCname, "white") = 0II strcmp(name, "White") = 0) 
( 

to « "1 1 1 SetCBg\n"; 

I 

else 

{ 

int r, g, b; 

bgcolor->Intensities(r, g, b); 

float fr = float(r)/Oxffff; 

float fg = float(g) / Oxffff; 

float fb = floatfb) / OxfflT; 

to « fr« " " « fg « " " «fb « " SetCBgNn"; 

I 

I 


/* 

• WriteFont writes the Selection's font, 

•/ 

void Sclection::WriteFont (ostrcam& to) 

I 

IFont* font = (IFont*) GctFontQ; 
if (font *= nil) 

I 

to « staitdata « " f u\n"; 

) 

else 

1 

const char* name = font->GetName(); 
const char* pf = font->GetPrintFontO; 
const char* ps = font->GetPrintSire{); 
to « startdata « " f " « name « "in"; 
to « "/" « pf « " " « ps « " SetFin"; 
) 

1 


r 

* WritePattem writes the Selection's pattern. 


•/ 

void Selection::WritePattcm (ostream& to) 

( 

IPattem* pattern = (IPattem*) GetPattemO; 
if (pattern — nil) 

I 

to « staitdata « " p u\n"; 

I 

else if (pattem->None()) 

( 

to «"none SetP ” « startdata « " p n\n"; 

) 

else if (pattem->GetSizeO > 0) 

I 

const int* data =: pattcm->GetDataO; 
int size = pattem->GetSize(); 
to « staitdata « ” pVi"; 
to « ”< 
if (size <= 8) 

i 

for (int i = 0; i < 8; i++) 

( 

sprintf(buf, "%02x'\ data[i] & OxfF); 
to « buf « " 

I 

I 

else 

( 

for (int i = 0; i < pattemHeight; i++) 

{ 

sprintf(buf, pattern Width/4, data[i]); 

if (i != pattemHcigJit - 2) 

( 

to « buf «" 

1 

else 

I 

to « buf« “in "i 

I 

I 

1 

to «"> -1 SetPm"; 

I 

else 

1 

float giaylevel = pattem->GetGrayLevelO; 
to « staitdau « " pVi"; 
to « giaylevel« " SetPvn"; 

I 

1 

/* 

* WiiteTransformer writes the Selection's transformation matrix. 

•/ 

void SelectionttWriteTransformer (ostream& to) 

1 

Transformer* t = GctTransformerO; 
if (t •>= nil II *t «= *identity) 

I 

to « startdata « " t u\r"; 

I 

else 

I 

float mat|6]; 

t->GetEntries(mat[0], mat[l], mat[2], mat[3], mat[4], mat[S]); 
to « staitdata « " f«i[ 
for (int i = 0; i < 6; i++) 

( 

to «(fabs(mat[i]) < 0.0001 ? 0.0 ; mat[i])« " 

t 

to « ") concat\n"; 

I 

I 
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/• 

* CrcateHandles creates handles outlining the Selection's shape. 

*/ 

void Selection::CreateHandles () 

const intN = 8; 
const int RUBPT = 0; 

Coord I, b, r, t, hx, hy, x[N], y[N]; 

PicturerrGeffloxO, b, r, t); 
hx = (r + l)/2; 
hy = (t + b)/2; 
x[0] = l;y[0] = b; 
x[l] = hx;y[l] = b; 
x[2] = r;y[2]=b; 
x[3] = r;y[3]=hy; 
x[4] = r,y[4] =t; 
x[S] = hx;y[5] =t; 
x[6) = l;y[6] = t; 
x(7] = l;ym = hy; 

handles = new RubberHandles(nil, nil, x, y, N, RXJBPT, HDSI^); 

) 


/* 

* DeletcHandles zeroes the handles to record it has none now. 

•/ 

void Selection::DeleteHandles () 

I 

if (handles != nil) 

I 

delete handles; 
handles = nil; 

I 

) 

/• 

* SetClassId describes the type of selection it is storing 

•/ 

void Selection;;SetClassId(ClassId classid) 

I 

cid = classid; 

I 


r 

* GetClassId returns the type of selection it is storing 

•/ 

Gassid Selection;:GetClassId() 

1 

return cid; 

I 


boolean Selcction:JsEdgeComponentO I 
return (cid == SELFLOOP) II (cid = DATAFLOW_SPLINE) II 
(cid = LAr_DF) II (cid = LABEL_DF) II 
(cid *= LABEL_SL); 

I 

brxilean Selection:;IsVerlexComponentO I 
return (cid == OPERATOR) II (cid = LABEL_OP) II 
(cid = MET_OP); 

I 

/» 

* NPtSelection passes its argument to Selection. 

*/ 

NPtSelection; J4PtSelection (Classid classid. Graphic* gs) : (classid, gs) 

i 

myname = "YouForgotToDefineMyName"; 
tubbervertex - nil; 

I 
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NPtSclcction::NPtSclcction(Graphic* gs): (gs) 

{ 

myname = "YouFoigotToDcfineMyName"; 
nibbervcrtcx - nil; 

} 


/* 

* GetOriginal returns the points that were passed to the 

* thcNPtSelection subclass's constructor. 

•/ 

intNPtScIection::GctOriginal (const Coord*&, const Coofd*&) 

i 

return 0; 

I 

/* 

* GetClassId returns the type of selection it is storing 

*l 

Classld NPtSclcction;:GetClassIdO 

{ 

return Selection: iGetClassIdQ; 

) 

/♦ 

* ShapedBy returns tnic if any of the NPtSelection's points falls 

* within the given distance of the given point 
*/ 

boolean NPtSelection::ShapedBy (Coord px, Coord py, float maxdist) 

{ 

const Coord* ux; 
const Coord* uy; 
intn * GetOriginal(ux, uy); 

Coord* X = new Coordfn]; 

Coord* y «= new Coord[n]; 

CopyAiTay(ux, uy, n, x, y); 

TotalTransfofTn(x, y, n); 

int closestpt« ClosestPoint(x, y, n, px, py); 

boolean shapedby « Distancc(x[closestpt], y(closestpt], px, py) <* maxdist; 
delete x; 
delete y; 
return shapedby; 

1 

/• 

* CreateShape creates, stores, and returns a rubberband representing 

* the NPtSelection's shape for the user to reshape. 

V 

Rubberband* NPtSclcction::CrcatcShapc (Cooid px. Coord py) 

I 

const Coond*ux; 
const Coord* uy; 
int n s GetOrigina!(ux, uy); 

Coord* X = new Coord(n]; 

Coord* y ** new Coord[n]; 

CopyAnray(ux, uy, n, x, y); 

Tota!Transform(x, y, n); 

int rut^t» CloscstPoint(x, y, n, px, py); 

rubbcrvcrtcx = CreatcRubbcrVcrtcx(x, y, n, nibpt); 

delete x; 

delete y; 

return rubbervcrtex; 

I 


/* 

* GetReshapedCopy creates and returns a copy of the NPlSclection 

* incorporating the change made to its shape. 

•/ 

Selection* NPtSelection::GctRcshapedCopy 0 

1 

Coord* x; 
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Coord* y; 
intn; 
int rubpt; 

rubbervertex->GetCurrent(x, y, n, rubpt); 
delete rubbervcrtex; 

InvTotalTransforroCx, y, n); 

Selection* reshaped » CreateReshapedCopy(x, y, n); 
delete x; 
delete y; 
return reshaped; 

I 

/* 

* ReadPoints reads a set of points as efficioitly as possible by 

* using dynamic static buffers instead of mallocing on every call. 

*1 

void NPtSclcction::RcadPoints (istream& from, const Coord*& x, const Coord*& y, 
int& n) 

{ 

const int INTTIALSIZE « 15; 
static int siz^oints = 0; 
static Coord* xcoords * nil; 
static Coord* ycoords = nil; 

SkipCfrom); 
from » n; 
if (n > sizcpoints) 

I 

delete xcoords; 
delete ycoords; 

sizcpoints « max(n, INTTIALSIZE): 
xcoords - new Coord[sizepoints]; 
ycoords * new Coord[sizepoints]; 

} 


for (inti «0;i <n; i++) 

I 

if (versionnumber < NONREDUNDANTVERSION) 

I 

Skip(ffom); 

) 

from » xcoordsfij» ycoords[ij; 

I 

X s xcoords; 
y « ycoords; 

} 


/* 

* WritcData writes the NFHSclcction's data and Postscript code to 

* draw it 
•/ 

void NRSelcction::WriteData (ostream& to) 

{ 

const Coord* x; 
const Coord* y, 
int n *= GctOriginal(x, y); 

to « "Begin " « startdata « " " « myname « "Sn"; 
WritcGS(to): 

to « startdata « " " « n « "Vn"; 
for (int i * 0; i < n; i++) 

I 

to « x[i] « " " «y[i]« "Vn"; 

I 

to « n « " " « myname «’Vi"; 
to « "EndSnVfl"; 

) 


/• 

* CreateRubberVertex creates and returns the right land of 

• RubberVertex to represent the NPlSelection’s shape. 

•/ 


268 



RubberVcitex* NPtSelection::CreateRubberVertex (Coord*, Coord*, int, int) 

/* implCTiwit it in your subclass */ 
return nil; 

} 


/* 

* CreateReshapcdCopy creates and returns a reshaped copy of itself 

* using the passed points and its graphic state. 

*/ 

Selection* NPtSclection::CrcateReshapcdCopy (Coord*, Coord*, int) 

{ 

/* implement it in your subclass */ 
return nil; 

} 


/* 

* CreateHandles creates handles highlighting the NPtSelection's 

* points. 

*/ 

void NPtSelection::CreateHandlcs () 

{ 

const int RUBPr - 0; 
const Coord* ux; 
const Coord* uy; 
int n GetOri^nal(ux, uy); 

Coord* X * new Coord[n]; 

Coord* y * new Coord(n]; 

CopyArray(ux, uy, n, x, y); 

TotalTransform(x, y, n); 

handles = new RubbcrHandlcs(nil, nil, x, y, n, RUBPT, HDSIZE); 
delete x; 
delete y; 

) 

I* 

* TotalTiansform transforms the given points from the Selection's 

* coordinate system to the screen's coordinate system. 

•/ 

void NPtSelectionrrTotalTransfonn (Coord* x, Coord* y, intn) 

{ 

Transformer total; 

TotalTransformationCtotal); 
for (int i = 0; i < n; i++) 

I 

total.Transform(x[i], y[i]); 

I 

I 


/* 

* InvTotalTransform transforms the given points from the screen's 

* coordinate system to the NPtSelection's coordinate system. 

*/ 

void NPtSelection: JovTotafTtansform (Coord* x, Coord* y, int n) 

( 

Transformer total; 

TotalTransfotmation(total); 
for (int i = 0; i < n; i++) 

I 

total.InvTransfotm(x[i], y[i]); 

I 

1 


/* 

* ClosestPoint returns the index within the arrays of the closest 

* point to the given coordinates. 

*/ 

int NPtSelection::ClosestPoint (Coord* x. Coord* y, int n. Coord px. 
Coord py) 
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I 

int closestpl = 0; 

float mindist = E)istancc(x[0], y[0], px, py); 
for (int i = 1; i < n;!++) 

{ 

float dist = Distancc(x [i], y[i], px, py); 
if (dist < mindist) 


mindist - dist; 
closestpt ss i; 

I 

} 

return closestpt; 

} 


f* 

* LcftAcont checks whether the left arrowhead contains the point 

V 

boolean NPtSelection::LeftAcont (Coord xO, Coord yO, Coord xl. Coord yl, 
PointObj& po, Graphic* gs) 

{ 

IBrush* brush «(IBrush*) gs->GetBmsh(); 
if (brush->LeftArrowO) 

I 

return AiTowHcadcont(xO, yO, xl, yl, po, gs); 

I 

return false; 

} 


/* 

* RightAcont checks whether the right arrowhead contains the point. 

•/ 

boolean NPtSclection::RightAcont (Coord xO, C^ord yO, Coord xl. Coord yl, 
PointObj& po. Graphic* gs) 

I 

IBrush* brush = (IBrush*) gs->GetBfush(): 
if (brush*>RightArrow()) 

( 

return ArTOwHeadcont(xO, yO, xl, yl, po,gs); 

I 

return false; 

} 


r 

* LeftAints checks whether the left arrowhead intersects the area. 

•/ 

boolean NPlSelection::LeftAints (Coord xO, Coord yO, Coord xl. Coord yl, 
BoxObJ& userb. Graphic* gs) 

I 

IBrush* brush = (IBrush*) gs->GctBrush(); 
if (brush->LeftAiTowO) 

{ 

return AiTowHeadints(xO, yO, x 1, yl, userb, gs); 

} 

return false; 

} 


* RightAints checks whether the right arrowhead intersects the area. 

•/ 

boolean NPtSelcctionirRightAints (Coord xO, Coord yO, Coord xl. Coord yl, 
BoxObj& userb, Graphic* gs) 

{ 

IBrush* brush »(IBrush*) gs->GetBnish(): 
if (brush->RightArTow()) 

i 

return ArrowHcadints(xO, yO, xl, yl, userb, gs); 

1 

return false; 

I 


r 
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• drawLcftA draws the left arrowhead if it should be drawn. 

•/ 


void NPtSelection::drawLeftA (Coord xO, Coord yO, Coord xl» Coord yl, 
Canvas* c, Graphic* gs) 

I 

EBrush* brush * (IBrush*) gs->GetBrush(); 
if (bmsh->LcftAiTOw0) 

{ 

drawAiTowHcad(xO, yO, xl, yl, c, gs); 

I 

} 

/♦ 

* drawRightA draws the right arrowhead if it should be drawn. 

*l 

void NPtSeleclion::drawRightA (Coord xO, Coord yO, Coord xl. Coord yl. 
Canvas* c, Graphic* gs) 

I 

IBrush* brush = (IBrush*) gs->GctBrush(); 
if (brush->RightArTow()) 

i 

drawArrowHead(xO, yO, xl, yl, c, gs); 

I 

I 

f* 

* Define an arrow head with its tip at the origin and its tail on the 

* negative x axis so we can rotate the tail about the origin to the 

* right angle and translate the tip to the right point 
*/ 

static const int ARROWN = 3; 

static Coord anowx[ARROWN] *= {0. -ARROWHEIGHT, -ARROWHEIGHT); 
static Coord arrowy [ARROWN] = {0. ARROWWIDTH/2. -ARROWWIDTHy2|: 
static Coord arrowconvx[ARROWN + 1]; 
static Coord anowconvy(ARROWN +1]; 

/* 

* MergeAirowHeadTol returns a tolerance to use around the graphic's 

* extent that includes the arrowhead’s size. 

V 

float NPtSelection::MergeAiTOwHeadTol (float tol. Graphic* gs) 

I 

IBrush* brush = (IBrush*) gs->GetBiush(); 
if (btush->lxftArrowO II brush->Ri^tArrow()) 

( 

float magnif -1; 

Transformer* view * gctRootO->GctTransformer(); 
if (view !=nil && !vicw->Rotatcd()) 

{ 

/* rot breaks magnif calc */ 
float fpxO, fpyO, fpxl, fpy 1; 
vicw->Transfotm(0.0, 0.0, fpxO, fpyO); 
vicw->Transfonn(I.0,1.0, fpxl, fpyl); 
magnif 5= fpyl - ^yO; 

1 

float arrowiol * 0.5 * ARROWWIDTH * points * magnif; 
tol = max(arTowtoI, tol); 

1 

return tol; 

} 


/* 

• ArrowHeadcont returns trae if the arrowhead contains the point 

* The arrowhead may be filled or unfilled depending on the pattern. 

*/ 

boolean NPtSelcction:t\rrowHeadcont (Coord xO, Coord yO, Coord xl. Coord yl, 
PointObj& po. Graphic* gs) 

I 

boolean contains false; 

IPattem* pattern = (IPattem*) gs->GetPattem0; 


271 


SetCTM(xO, yO, xl, yl, gs, !pattem->None()); 

PoinlObj pt(&po): 
invTransfonn(i)t,x, pt.y, g$); 

if (pattem->None()) 

I 

MultiLineObj mUarrowx, arrowy, ARROWN); 

LineObj I(arrowx[ARROWN-l], airowyfARROWN-1], arrowx[0], arrowy[0]); 
contains =ml.Contains(pt) II l.Contains^t); 

1 

else 

{ 

FillPolygonObj fp(arrowx, arrowy, ARROWN); 
contains = fp.Contains(pt); 

) 


RestoreCTM(gs); 
return contains; 

} 


/♦ 

• ArrowHcadints returns trac if the arrowhead intersects the area. 

* The arrowhead may be filled or unfilled depending on the pattern. 

*/ 

boolean NPtSelection::ArrowHeadints (Coord xO, Coord yO, Coord xl. Coord yl, 
BoxObj& userb. Graphic* gs) 

( 

boolean intersects » false; 

IPattem* pattern = (IPattem*) gs->GetPattcm(); 

SetCTM(xO, yO, xl, yl,gs, !pattcm‘>None()); 

transformList(arrowx, arrowy, ARROWN, arrowconvx, arrowconvy, gs); 
if (pattem->None()) 

I 

arrowconvx(ARROWN] = arrowconvx[0]; 
aiTOWconvy(ARROWN] =arrowconvy[0]; 

MultiLineObj ml(anowconvx, arrowconvy, ARROWN + 1); 
intersects s mtintersects(useib); 

1 

else 

I 

RllPolygonObj fp(arrowconvx, arrowconvy, ARROWN); 
intersects = fp.Intersects(userb); 

) 


RestoreCTMCgs); 
return intersects; 

} 


/* 

* drawArrowHead draws the arrowhead. 

♦/ 

void NPtSclcction::drawArTOwHead (Coord xO, Coord yO, Coord xl. Coord yl. 
Canvas* c. Graphic* gs) 

I 

IPattem* pattern * (IPattem*) gs->GetPattemO; 
if (!pattcm->NoncO) 

1 

SctCTM(xO, yO, xl, yl, gs, trac); 
update(gs); 

pFillPolygon(c, arrowx, arrowy, ARROWN); 

RcstorcCTM(gs); 

I 


IBrush* brash = (IBrash*) gs->GctBrush(); 

if (!br\ish->NoneO) 

I 

SctCTM(xO, yO, xl, yl, gs, false); 
update(gs); 

pPolygon(c, arrowx, arrowy, ARROWN); 
RcsioreCTM(gs): 

I 

I 
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t* 

* SetCTM stores gs‘s former transformation matrix and overwrites it 

* with a new one defined to scale the arrowhead to its proper size 

* and align it with the line. The matrix includes the grapWc’s 

* topmost parent's scaling but no other parents' scaling so the 

* arrowhead will change size when we zoom the view but stay the same 

* size when we scale the line. New argument pattcmfill special- 

* cases filling arrowhead to include the outermost edge of the 

* outline drawn by the brush so dashed brushes won't expose white 

* space where there's no pattern fill. 

*/ 

static Transformer* origCTM; 
static Transformer* arrowCTM; 

void NPtSclcction::SctCTM(Coord xO, Coord yO, Coord xl. Coord yl. 
Graphic* gs, boolean pattemfill) 

{ 

if (arrowCTM = nil) 

I 

arrowCTM = new Transformer, 
aiTOwCTM->Rcference0; 

) 

*arrowCrM = *idcntity; 


if (pattemfill) 

1 

IBrush* brush = (IBrush*) gs->GctBrushO; 
float bw = brush->WdthO: 

float padtip = sqrt(ARROWHEIGHT*ARROWHEIGHT + 
0.25*ARROWWIDTH*ARROWWIDTH) * bw / ARROWWIDTH; 
float padtail « bw / 2; 

float pattemscalc (ARROWHEIGHT + padtip + padtail) / ARROWHEIGHT; 
arrowCTM->S cal c(pattcms calc, pattemscale); 
arrowCrrM->Translate(padtip, 0.); 

I 


aiTowC!TM*>Scale(point, point); 

Transformer* view » getRootO->GctTransfofmerO; 
if (view != nil && !view->RotatedO) 

I 

/• rot breaks magnif calc */ 
float fpxO, fpyO, fpxl, fpyl; 
view->TTansform(0.0,0.0, ^xO, fpyO); 
view->Tiansform(1.0,1.0, fyxl, fpyl); 
float arrowxmag« fpxl - ^xO; 
float arrowymag » fpyl - fpyO; 
if (arrowxmag «= arrowymag) 

I 

/• won't scale arrows in BrushView */ 
arTowCrrM->Scale(aiTowxmag, arrowymag); 

I 

) 


float tipx, tipy, tailx, tally; 
transfonm(float(xO), float(yO), tipx, tipy, gs); 
transform(float(xl), float(yl), tailx, tally, gs); 
float angle = Siope(tipx - tailx, tipy • tally); 
arTOwC!TM->Rotatc(anglc); 
aiTowCTM->Translate(tipx, tipy); 

origCTM « gs->GetTransformcrO; 
if (origCTM != nil) 

{ 

origCrM*>ReferenccO; 

I 

gs->SetTransformcr(anowCTM); 

I 

/* 

* RestoreCTM restores gs's original transfomiation matrix. 

•/ 

void NPtSclcction::RestoreCTM (Graphic* gs) 

I 
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gs->SctTransformcr(origCrM); 

Unrcf{origCTM); 

I 

/* 

* sign returns 1 if the number's normegative, -1 if it's negative. 
*/ 

inline float sign (float num) 

{ 

return (num >=0.) ? 1.: -1.; 

} 

/* 

* Slope returns the number of degrees in the given slope. 

•/ 

float NPtSclcction::Slope (float dx, float dy) 

( 

float angle « 0.; 
if(dx-«0.) 

{ 

angle * sign(dy) • 90.; 

1 

else 

I 

angle =* degrces(atan(dy/dx)); 
if(dx<0.) 

1 

angle += sign(dy) * 180.; 

I 

I 

return angle; 

} 


slellipses.h 

tifndef slellipses.h 
#define slellipses.h 

#include "selection.h" 

class Operator, 

// A EllipseSelection draws a ellipse with an outline and a filled 
// interior. 

class EllipseSelection : public Selection { 
public: 

EllipscSelection(Coord, Coord, Coord, Coord, Graphic* * nil); 
ElIipseScIection(istream&. State*); 

Graphic* CopyO; 

void GetOriginal(Coord&, Coord&, int&, int&); 
protected: 

void WriteData(ostream&); 


1 ; 


// A CircleSelection draws a circle with an outline and a filled 
// interior. 

class CircleSelection : public Selection { 
public: 

CirclcSclcction(Coord, Coord, int. Graphic* = nil); 
CircleSelcction(istrcam&, State*); 

Graphic* CopyO; 

void GctOriginal(Coord&, Coord&, int&): 


protected: 



void WritcData(ostreami&); 


): 

#ondif 


slellipses.c 


#include "dfdclassesJi” 

#includc "icllipscs.h" 

#include "slcllipses.h" 

#include <IntcrViews/Std/strcani.h> 

// EllipseSelection creates the ellipse's filled interior and outline. 

EllipseSelection:£llipseSelection (Coord xO, Coord yO, int rx, int ry. 
Graphic* gs): (OPERATOR^ { 

Append(new IFillEllipsc(xO, yO, nt, ry)); 

Appcnd(new Eltipse(xO, yO, rx» ry)); 

I 

// EllipseSelection reads data to initialize its graphic state and 
// create its filled interior and outline. 

EllipseSelection::EllipseSelection (istream& from, State* state): 
Selection((Graphic *)nil) { 

ReadGS(from, state); 

Skip(from); 

Coord xO, yO; 
int rx, ry; 

from » xO » yO » rx »ry; 

Append(new IFillEllipse(xO, yO, rx, ry)); 

App«id(new Ellipse(xO, yO, rx, ry)); 

I 


// Copy returns a copy of the EllipseSelection. 

Graphic* EllipseSelection;;Copy () { 

Coord xO, yO; 
intrx, ry; 

GetOriginal(xO, yO, rx. ry); 

return new EllipseSelection(xO, yO, rx, ly, this); 

1 

// GetOriginal returns the center point and the x and y radii lengths 
// that were passed to the EllipseSelection's constructor. 

void EllipseSelection::GctOriginal (Coord& xO, Coord& yO, int& rx, int& ry) { 
((Ellipse*) Last())->GctOriginal(xO, yO, rx, ry); 

I 


// WriteData writes the EilipseSelection's data and Postscript code to 
// draw it. 

void EllipscSclection::WritcData (ostrcam&to) { 

Coord xO, yO; 
int rx, ry, 

GetOriginal(xO, yO, rx, ry); 

to « "Begin " « startdata « " Elli\n"; 

WritcGS(lo); 

to « startdata « "\n"; 

to « xO « " " « yO « " " « rx « " " « ry « " ElliVn"; 
to « "EndSnXn"; 

1 

// CircleSelection creates the circle's filled interior and outline. 

CircIeSelection::CircleSelcction (Coord xO, Coord yO, int r, Graphic* gs) 
:(gs) { 

Appcnd(ncw IRllCircle(xO, yO, r)); 

Appcnd(ncw Circle(xO, yO, r)); 

I 

// CircleSelection reads data to initialize its graphic state and 
// create its filled interior and outline. 
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CircleSelection::CircleSelection (istream& from, State* state) : 
Selection ((Graphic*)nil) { 

ReadGS(from, state); 

Skip(from); 

Coord xO, yO; 
int r, 

from » xO » yO » r, 

Append(ncw IFillCirclefxO, yO, r)); 

Append(new Circle(xO, yO, r)); 

} 


// Copy returns a copy of the CircleSclection. 

Graphic* CircleSelection::Copy () { 

Coord xO, yO; 
int r, 

GetOriginalfxO, yO, r); 

return new CircleSclcction(xO, yO, r, this); 

) 


// GetOriginal returns the center point and radius length that were 
// passed to the CircIeSelection's constmctor. 

void CircIcSclection;:GetOriginal (Coord& xO, Coord& yO, int& r) ( 
((Circle*) LastO)->GetOriginal(xO, yO, r, r); 

} 


// WriteData writes the CircIeSelection's data and Postscript code to 
// draw it 

void CircleSelection"Writd)ata (ostream&to) { 

Coord xO, yO; 
intr, 

GctOrigina!(xO, yO, r); 

to « "Begin " « startdala «" CircNn"; 

WriteGS(to); 

to « startdata «’V"; 

to « xO « " " « yO « " " «r« " Circ\n"; 
to « "End^Vi"; 

) 


slline&h 


#ifiidef sllincs_h 
#definc sllincs_h 

#includc "sclection.h" 

// A LineSelection draws a line. 

class LineSelection : public NPtSelection ( 
public: 

LineSclection(Cooixl, Coord, Coord, Coord, Graphic* = nil); 
LineSelection(istream&, State*); 

Graphic* CopyO; 

void GctOriginaI2(Coord&, Coord&, Coord&, Coord&); 
int GetOriginal(const Coond*&, const Coord*&); 

Selection* CrcatcRcshapcdCopy(Coord*. Coord*, int); 

protected: 

void WriteData(ostream&); 

RubberVertex* CreatcRubbcrVcrtcx(Coord*, Cooixl*, int int); 
void uncacheChildrcnO; 

void get£xtent(float&, float&, float&, float&, float&. Graphic*); 
boolean contains(PointObj&, Graphic*); 
boolean inteisects(BoxObj&, Graphic*); 
void draw(Canvas*, Graphic*); 

void drawQippcd(Canvas*, Coord, Coord, Coord, Coord, Graphic*); 
Graphic* line;//draws the line 
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// A MultiLincSelection draws a set of connected lines with a filled 
// interior. 

class MultiLincSdcction : public NPtSelcction { 
public: 

MultiLineSclection(Coord*, Coord*, int, Graphic* = nil); 
MultiLineSclection(istrcam&, State*); 

Graphic* CopyO; 

int GetOriginaJ (const Coord*&, const Coord*&); 
protected: 

void lnit(Coord*, Coord*, int); 

RubberVcrtcx* CreateRubberVertex(Coord*, Coord*, int, int); 
Selection* CrcatcRcshapedCopy(Coord*, Coord*, int); 

void uncacheChildrenO; 

void get£xtCTt(fioat&, float&, fioat&, float&, fioat&, Graphic*); 
boolean contains(PointObj&, Graphic*); 
boolean intersects(BoxObj&, Graphic*); 
void draw(Canvas*, Graphic*); 

void drawClipped(Canvas*, Coord, Coord, Coord, Coord, Graphic*); 

Graphic* ifillmultiline;// fills a set of connected lines 
Graphic* multiline;// draws a set of connected lines 
Coord 1x0, lyO, 1x1, lyl;//stores oidpoints of left arrowhead 
Coord rxO, ryO, rxl, ryl;//stores endpoints of ri^t arrowhead 


}; 


#«idif 


sipicth 


#ifhdef slpict_h 
#deftnc slpict_h 

#include "sclection.h" 

// Declare imported types. 

class IFont; 
class IFontList; 

// A PictSelection contains other Selections. 

class PictSelection : public Selection { 
public: 

PictSelection(Graphic* *nil); 

PictSelcction(FILE*, State*); 

Graphic* CopyO; 
boolean HasChildrenO; 
void PropagateO; 

boolean Valid(); 

boolean WritePicture(FILE*, State*, boolean); 

Selection* GetCurrcnt(); 

Selection* Rrst(); 

Selection* Last(); 

Selection* Ncxt(); 

Selection* Prev(); 

Selection* RrstSelcctionContaining(PointObj&); 
Selection* LastSclcctionContaining(PointObj&); 
int SelectionsContaining(PointObj&, Selcction**&); 

Selection* RrstSclcctionlntersecting(BoxObj&); 
Selection* LastSelectionlntersecting(BoxObj&); 
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int SclectionsIntersecting(BoxObj&, Selection**&); 

Selection* FirstSeIectionWithm(BoxObj&); 

Selection* LastSeIectionWithin(BoxObj&): 
int ScIectionsWithin(BoxObj&, Sclection**&): 

int Findindex (Selection*); 

Selection* GetSclcction(int); 
protected: 

PictSelection(istream&, State*); 
void ReadChildrOT(istrcam&, State*); 

void WritcPicture(ostream&, State*, boolean); 

void WriteComments(ostream&); 

void WritePrologue(ostream&); 

void WriteDrawing(ostream&); 

void WriteData(ostream&); 

void WritcTrailer((Ktream&); 

void ScaleToPostscriptCoordsO; 

void ScaleToScrecnCoordsO; 

void CollectFonts(IFontList*); 

void Mcrge(IFont*, IFontList*); 

boolean valid;// true if creation of PictScIcction succeeded 


}; 


// Define inline access functions to get members' values. 

inline boolean PictSelection::Valid () { 
return valid; 

I 

// Cast these functions to return Selections instead of Graphics. 

inline Selection* PictSelection::GetCurTentO ( 
return (Selection*) Picture::GctCurrent(); 

) 


inline Selection* PictSelcction;:First() { 
return (Selection*) Picture::First(); 

I 


inline Selection* FHctSclection::LastO { 
return (Selection*) Picture:dLast(); 

} 

inline Selection* PictSclcction::Ncxt() { 
return (Selection*) Picture:JVextO; 

I 


inline Selection* PictSclection: J*rcvO I 
return (Selection*) Picturc:;PrevO; 

1 

inline Selection* PictSelection: J'irstSelectionContaming(PointObj& p) { 
return (Selection*) Picture: JnrstGraphicContaining(p); 

I 

inline Selection* PictSclection::LaslSelectionContaining(PointObj& p) ( 
return (Selection*) Picturc:iastGraphicContaining(p); 

1 

inline int PictSelection::SelectionsContaining(PointObj& p, Sclection**& ss) | 
Graphic** gg « nil; 

int num = Picture::GraphicsContaining(p, gg); 
ss *= (Selection**) gg; 
return num; 

) 


inline Selection* PictSclection:'J^irstSelcctionIntereecting(BoxObj& b) { 
return (Selection*) Picture::FirstGraphicIntersccting(b); 

I 

mime Selection* PictSclcction;JLastScIcctionIntcrsectmg(BoxObj& b) i 
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return (Selection*) Picture:iastGraphicIntersccting(b); 

) 


inline int PictSeIection::SelectionsIntersecting(BoxObj& b, Selection**& ss) { 
Graphic** gg = nil; 

int num = ftcture::GraphicsIntcrsecting(b, gg); 
ss = (Selection**) gg; 
return num; 


inline Selection* PictSclcction: J^irstSelectionWithin(BoxObj& b) { 
return (Selection*) Picturc::FirstGraphicWithin(b); 

I 

inline Selection* PictSelection:;LastSelectionWithin(BoxObj& b) | 
return (Selection*) Picturc::LastGraphicWithin(b); 

1 

inline int PictSeIection::SelectionsWithin(BoxObj& b, Sclection**& ss) { 
Graphic** gg as nil; 

int num » Kcturc::GraphicsWithin(b, gg); 
ss «(Selection**) gg; 
return num; 

I 

#endif 

slpictc 

#include "ipainth" 

#include "istringJi" 

#include *'listifonLh" 

#include "slellipsesJi" 

#includc "sllincsJi" 

#include "slpicUi" 
tinclude "slpolygons.h" 

#include "slsplincs.h" 

#include "sltexth" 

#include <InterViewsAransformer,h> 

#include <stream.h> 

// PictSelection initializes its graphic state. 

PictSclection: JHctSelection (Graphic* gs): (gs) ( 
valid = true; 

I 


// PictSelection knows it’s the outermost PictSelection because it was 
// called with a FILE* pointer, so it must read a version number, skip 
// over its name, read its graphic state and children, and scale 
// itself back to screen coordinates when it's finished. 

PictSelcction::PictSclcction (FILE* stream, State* state): Sclcction((Graphic*) nil) { 
int fd B fiieno(stream); 
istream from(fd); 

ReadVersion(from); 

ReadGridSpacing(from, state); 

if (vcrsionnumber < NONREDUNDANTVERSION) { 

Skip(from); 

I 

ReadPictGS(from, state); 

ReadChildren(from, state); 

ScaleToScreenCooidsO; 

Transformer* t * GetTransfoimcrQ; 

if (vcrsionnumber < NONROTATEDVERSION && 11=nil && t->Rotatcd90{)) { 
*t * idwitity; 

TransIatc(0.0, -8.5*inches); 

Rotate(90.0,0.0,0.0); 

Picturc:J^pagate(); 

I 

valid s= from.good(); 

I 


// Copy returns a copy of the PictSelection. 
Graphic* PictSelection::Copy () { 
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Selection* copy = new PictSclcction(this); 
for (FirstO; lAtEndQ; NextQ) { 
copy->Appcnd(GctCurrent()->Copy()); 

} 

return copy; 

1 


// HasChildrcn returns tme so Idraw can ungroup this Picture. 

boolean PictSelectioniJlasChildren 0 I 
return Picture: JIasChildrenO; 

} 


// Propagate must preserve the PictSelcction's transformation matrix 
// if it has any. 

void PictSelection: J^ropagate () { 

Transformer* original * GetTransformerQ; 
if (original !»nil) | 
originai->Refercnce(); 

Pictu re: :Prop agateO; 

SctTransformcr(original); 

Unrcf(original); 

} else I 

Pictu re: :Propagate(); 

I 

I 


// WritcPicture writes the picture and returns true if the write 
// succeeded or false if some 10 error occurred. It omits the 
// Postscript prologue and trailer if called with verbose false to 
// speed up cutting and pasting pictures between drawings. 

boolean PictSelection::WritcPicture ( 

FILE* stream. State* state, boolean verbose 

){ 

#if!deflned(_GNUG_J 

// incompatible with g-H-, but works around a efront bug 
filebuf fb(strcam); 
ostream to(&fb); 

#else 

int fd = fi!eno(stream); 
ostream to(fd); 

#cndif 

WritcPicture(to, state, verbose); 
return to.goodO; 

} 


// PictSclcction knows it’s not the outermost PictSclection so it only 
// reads data to initialize its graphic state and create its children 
// Selections. 

PictSelcction::PictSelect!on (istream& from, State* state): Sclection{(Graphic*)ml) ( 
ReadPiclGS(from, state); 

ReadChildren(from, state); 
valid * from.good(); 

1 


// ReadChildren loops determining which kind of Selection follows and 
// creating it until it reads "aid" which means all of the children 
// have been created. 

void PictSelection::RcadChildrcn (istream& from. Stale* state) { 
while (from.goodO) | 

Skip(from); 

Selection* child * nil; 
from » buf; 

if (strcmp(buf, "BSpI") = 0) { 

child « new BSplineSelectionffrom, state); 

I else if (strcmp(buf, "Circ") *= 0) ( 
child » newCircleSelection(from, state); 

1 else if (strcmp(buf, "CBSpI") = 0) { 
child « newClosedBSpIineSelection(from, state); 

1 else if (strcmp(buf, "Elli") ** 0) | 
child ■ ncwEllipscSelection(from, state); 

I else if {strcmpftwf, "Line") 0) { 
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child = ncwLineSelection(from, state); 

} else if (strcmp(buf, "MLine") «= 0) { 
child = ncwMultiLineSelection(&om, state); 

} else if (strcmpCbuf, "Piet") = 0) { 
child * newftctSclcction(fromu state); 

I else if (strcmpCbuf, "Poly") = 0) { 
child = newPoIygonSclcction(from, state); 

1 else if (strcmpClxif, "Rect") — 0) { 
child * newRectSeIection(from, state); 

) else if (strcmpCbuf, ’Text")« 0) { 
child * newTcxtSclection(from, state); 

I else if (strcmpCbuf, "eop") «= 0) { 
break; 

) else I 

fprintf(stderr, "unknown Selection %s, skippingV, buf); 
continue; 

} 

if (from.goodO) { 

Appcnd(child); 

} else { 
delete child; 

1 

I 

I 

// WritcPictuie writes the picture's data and Postscript code to print 
// it wrapped in Postscript comments that minimal ly conform to version 
//1.0 of Adobe Systems's structuring conventions for Postscript The 
// picture must remove itself from its parait if it has a parent to 
// prevail the parent's transformation from affecting the picture's 
// calculation of its bounding box. 

void PictSelection;:WritePicture (ostream& to, State* state, boolean verbose) { 
Picture* parent * (Picture*) Parent(); 
if (parent != nil) { 
parent->SctCuiTait(this); 
parent->Remove(this); 

I 

ScalcToPostscriptCoordsO: 
if (verbose) { 

WriteComments(to); 

WritePrologue(to); 

WritcVersion(to); 

WritcGridSpacing(to, state); 

WriteDrawing(to); 

WrilcTrailcr(to); 

1 else { 

WriteVersion(to); 

WriteDrawing(to); 

I 

ScaleToScreenCoordsO; 

if (parait issnil) { 
parent->InsertBeforeCur(this); 

I 

} 


// WriteComments writes information about the picture such as the 
// fonts used in it and the smallest bounding box enclosing it 

void PictSclection::WritcCommcnts (ostream& to) | 
to « "%!PS-Adobc^2.0 EPSF-1.2Sn"; 

to « "%%DocumaitFonts:‘'; 

ini linden * strlcn("9&%DocumcntFonts:"); 

const int MAXUNELEN = 256; 

EFontLisl* fontlist = new EFontList; 

CollectFonts(fontlist); 

for (fontlist->First(); !font!ist->AtEnd(); fontlist->Ncxt()) { 
IFont* font = fontlist->GctCurO'>GetFont(): 
if (linelen + striaiCfont->GetPrintFont()) + 2 <= MAXLINELEN) | 
to « " "; 

++linelcn; 

) else { 

to «'\i%%+ "; 
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lineien = strlen("%%+ ”); 

1 

to « font->GctPrintFontO; 

lineien +* strlen(font->GetPrintFont()); 

I 

to « "Vn"; 
delete fontHsl; 

to « "%%Pages: INn"; 

Coord 1, b, r, t; 

GetBox(l, b, r, t); 

to « "%9E>BoundingBox: " «1« " " « b « " *’« r « " ” «t« "Vo**; 

to «"%%EndCommcnts\nNn"; 
to « "50 diet beginNnNn"; 

1 

// WriteProloguc writes definitions of Postscript procedures to draw 
// Selections. You should not iwiame or delete the "exported" 

// capitalized procedures because old drawings rely on them, but you 
// can rename or delete the "internal" uncapitalized procedures. 

void RctSelcction::WritePrologue (ostream& to) { 

to « "/arrowHcight" « ARROWHEIGHT « " def\n*': 

to « "/arrowWidth " « ARROWWIDTH «** defVn"; 

to « "/none null dcfVn"; 

to « "/numGraphieParameters 17 defsn"; 

to « "/stringLimit 65535 defVnVn"; 

to « "/Begin {\n"; 

to « "saveNn"; 

to « "numGraphieParameters diet b^inVn"; 

to « "} dcf\n\n"; 

to «"/End {\n”; 

to « "endSn"; 

to « "restoreVn"; 

to «"} deNiV; 

to « "/SetB (Nn"; 

to « "dup type Aiulltype eq (Nn"; 

to «"popNn"; 

to «"hlse /brushRightArrow ideNi"; 
to « "false ZbrushLeftArrow idefVn"; 
to « "true /brushNone ideNi"; 
to «"} {Nn": 

to « "/brushDashOffsci idefNn"; 

to « "/brushDashArray idefNn"; 

to « "0 ne /bnishRightAirow idcNi"; 

to « "0 ne /brashLcftArrow idcf«"; 

to « "/brushWidth idefNn"; 

to « "false /brushNone idefNn"; 

to « "} ifelseNn"; 

to « ") defNriNn"; 

to « "^etCFg {Nn"; 

to « "/fgbluc idefNn"; 

to « "/fggrecn idefNn"; 

to « "/fgied idefNn"; 

to « "} defsnNn"; 

to « "^ctCBg (Nn": 

to « "/bgblue idefNn"; 

to « "/bggreen idefNn"; 

to « "/bgred idefyn"; 

to «"} defyriNn"; 

to « "^ctF {Nn"; 

to « "^rintSize idefNn"; 

to « "^rintFont idefNn"; 

to « "} defNnNn"; 

to « "/SetP {Nn"; 

to « "dup type ^ulItype eq {Nn"; 

to « "pop true /pattemNone idefNn"; 

to «"} {Nn"; 

to « "^attemGrayLcvel idefyn"; 
to «"pattemGrayLcvcl -I eq {Nn"; 
to « "^attemString idefNn"; 
lo«"} ifyn"; 

to « "false /^ttemNone idefNn"; 
to « "I ifelseNn"; 
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to « ") def\n\n"; 
to « "/BSpl IVi": 
to « "0 bcginNn"; 
to «*'storexyn\n"; 
to « "newpath\n"; 
to «"n I gt (Nn"; 

to « "0 0 0 0 0 0 1 1 true subsplincNn"; 
to «"n 2 gt {\n"; 

to « "0 0 0 0 1 12 2 false subsplineNn"; 
to «"1 1 n 3 sub {Vn"; 
to « "/{exch defVn''; 

to « "i 1 sub dup i dup i 1 add dup i 2 add dup false subsplincNn**; 
to « "} foiNn"; 

to « "n 3 sub dup n 2 sub dup n 1 sub dup 2 copy false subsplineNn"; 
to «"} ifVn"; 

to « "n 2 sub dup n 1 sub dup 2 copy 2 copy false subsplincNn"; 

to « "pattemNone not brushLcftAirow not brushRightArrow not and and { "; 

to « "ifill I ifNn"; 

to « "brushNone not { istroke ) ifNn"; 
to « "0 0 1 1 IcflarrowNn"; 
to « "n 2 sub dup n 1 sub dup rightarrowNn"; 
to « "} ifNn"; 
to « "cndNn"; 

to « "} dup 0 4 diet put dcfNnNn"; 

to « "^irc {Nn"; 

to « "newpathNn"; 

to « "0 360 arcNn"; 

to « "pattemNone not { ifill} ifNn"; 

to « "brushNone not { istroke } ifNn"; 

to « ") dcfNnNn"; 

to «"/CBSpI (Nn"; 

to « "0 bcginNn"; 

to « "diq) 2 gt (Nn**; 

to «"storexynNn"; 

to « "newpathNn"; 

to «'’n 1 sub dup 0 0 1 1 2 2 true subsplincNn"; 
to « "1 1 n 3 sub {Nn": 
to « "fi. exch defNn"; 

to «"i 1 sub dup i dup i 1 add dup i 2 add dup false subsplineNn"; 
to «"} foiNn"; 

to « "n 3 sub dup n 2 sub dup n 1 sub di^ 0 0 false subsplineNn"; 
to « "n 2 sub dup n 1 sub dup 0 011 false subsplin^"; 
to «"pattemNone not { ifill | if'n"; 
to « "brushNone not (istroke } ifNn"; 
to «"} (Nn": 
to « "PolyNn"; 
to « " I ifelscNn"; 
to « "cndNn"; 

to « "} dup 0 4 diet put dcfNnNn"; 

to « "/Elli (Nn": 

to « "0 bcginNn"; 

to «"newpathNn"; 

to « "4 2 rollNn"; 

to « "translatcNn"; 

to « "scaleNn"; 

to « "0 0 1 0 360 arcNn"; 

to « "pattemNone not ( ifill } ifNn"; 

to « "brushNone not (istroke } ifNn'*; 

to « "endSn"; 

to « " I dup 0 1 diet put dcfNnNn"; 

to « "^ine (Nn"; 

to « "0 beginVi"; 

to « "2 storexynNn"; 

to « "newpathNn"; 

to « "x 0 get y 0 get movetoNn"; 

to « "x 1 get y 1 get linctoNn"; 

to « "brushNone not { istroke } iNi"; 

to « "0 0 1 1 IcftarrowNn"; 

to « "0 0 1 1 rightarrowNn"; 

to « "endSn"; 

to « " 1 dup 0 4 diet put dcfVnNn"; 

to « "/MLinc (Nn"; 

to « "0 bcginNn"; 

to « "storexynNn"; 

to « "newpathNn"; 

to «"n 1 gt (Nn"; 
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to « "x 0 get y 0 get movetoNn"; 
to « ”1 Ini sub {\n"; 
to « "f\ exch dcf\n"; 
to « "x i get y i get linetoNn"; 
to «"} foiM"; 

to « "pattcmNone not brushLeftArrow not brashRightArrow not and and { 
to « "ifill } ifyi"; 

to « "brushNone not {istroke } ifNn"; 
to « "0 0 1 1 IcftarrowNn"; 
to « "n 2 sub dup n 1 sub dup rightarrowV*; 
to «"} ifVn"; 
to « "cndVn”; 

to « "} dup 0 4 diet put dcfNnNn"; 

to « "/Poly {''n"; 

to « "3 1 rolINn"; 

to « "newpath\n"; 

to « "movetoNn"; 

to «"-l addNn"; 

to « "( lineto } repeatNn"; 

to « "closcpathNn"; 

to «"pattcmNone not {ifill } ifNn"; 

to « "brushNone not {istroke ) ifNn"; 

to « "} defNriNn"; 

to « "/Rcct {Nn"; 

to « "0 bcgjnNn"; 

to «"A exch dcfNn"; 

to «"/r exch defNn"; 

to « "/b exch defNn"; 

to « "/I exch defNn"; 

to « "newpathNn"; 

to « "1 b movetoNn"; 

to « "11 linetoNn"; 

to «"rl linetoNn"; 

to « "r b linetoNn"; 

to «"closcpathNn"; 

to «"pattemNonc not { ifill } ifNn"; 

to « "brushNone not { istroke } ifNn"; 

to «"endNn"; 

to « "} dup 0 4 diet put defNnNn"; 
to « "/Text |Nn"; 
to « "ishovAn"; 
to «"} defNriNn"; 
to «"Adef (Nn"; 

to « "dup where { pop pop pop } { exch def } ifcIseNn"; 
to «") defNnNn"; 
to«"Afill {Nn"; 
to « "0 bcginNn"; 
to « "gsavcNn"; 

to « "pattcmGrayLcvel -1 ne (Nn"; 

to « "fgred bgred fgred sub pattemGrayLcvcl mul addNn"; 

to « "fggreen bggreen fggreen sub pattcmGrayLcvel mul addNn"; 

to « "fgbluc bgblue fgblue sub pattcmGrayLcvel mul add sctrgbcoloiNn"; 

to « "cofillNn"; 

to «") {Nn"; 

to « "coclipNn"; 

to « "originalCrM sctmatrixNn"; 

to « "pathbbox A exch def /r exch def lb exch def /I exch defNn"; 

to « "/w r 1 sub ceiling evi defNn"; 

to «"/h t b sub ceiling evi defNn"; 

to « "AmagcBytcWidth w 8 div ceiling evi defNn"; 

to « "AmageHeight h defNn"; 

to « "bgred bggreen bgblue sctrgbcoloiNn"; 

to « "cofillNn"; 

to « "fgred fggreen fgblue sctrgbcoloiNn"; 
to « "w 0 gt h 0 gt and {Nn"; 
to « "1 b translate w h scaIcNn"; 

to « "w h tme (w 0 0 h neg 0 h] { pattcmproc ) imagemaskNn"; 
to «"} ifNn"; 
to «"} ifelscNn"; 
to « "grcstorcNn"; 
to «"endNn"; 

to « "} dup 0 8 diet put defNnNn"; 
to « "Astrokc (Nn"; 
to « "gsavcNn"; 

to « "brushDashOffset *1 cq {Nn"; 
to « "[] 0 setdashNn"; 
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to « "1 sctg^a>^n"; 
to « "} {V; 

to «’‘brushDashArray brushDashOffset setdashXn"; 

to « "fgred fggreen fgblue sctrgbcoloiNn"; 

to « ") ifelseV; 

to « "brushWidth setlinewidthV; 

to « "originalCrM setmatrixNn"; 

to « "strokcNn"; 

to « "grestoreVn"; 

to « "} dcfVn\n"; 

to « "Ashow {Nn"; 

to « "0 bcgiuNn"; 

to «"gsaveNn”; 

to «"fgred fggreen fgblue setrgbcoloiNn"; 

to « "/fontDict printFont findfont printSize scalefont dup setfont defsn"; 
to « "/descender fontDict begin 0 [FontBBox] 1 get FontMatrix cn<hn"; 
to « "transform exch pop defVn"; 

to « "/vertoffset 0 descender sub printSize sub printFont /Courier neSn"; 

to « "printFont /Courier-Bold ne and { 1 add } if def |\n'’; 

to « "0 vertoffset moveto showVn"; 

to « "/vertoffset vertoffset printSize sub dcfVn"; 

to«"} forallNn"; 

to « "grestoreNn"; 

to « "endSn"; 

to « ") dup 0 3 diet put dcNiVi"; 
to « "^attemproc 
to « "0 begin'^"; 

to « "/pattemByteLength pattemString Imgth defvn"; 

to « "^attemHcight pattemByteLength 8 mul sqrt evi defVn"; 

to « "^attemWidth pattcmHcight defVn"; 

to « "^attemByteWidth pattemWidth 8 idiv defVn"; 

to « "^nageBytcMaxLength imageByteWidth imageHeight mufVn"; 

to « "stringLimit pattemByteWidth sub min defVn"; 

to « "AmagcMaxHcight imageByteMaxLmgdi imageByteWidth idiv "; 

to «"pattcmHcight idivVn"; 

to « "pattcmHcight mul pattcmHcight max dcfVn"; 

to « "^agcHcight imageHeight imageMaxHeight sub storeVn"; 

to « "/imageString imageByteWidth imageMaxHeight mul pattemByteWidth 

to « "add string def'n"; 

to « "0 1 imageMaxHei^t 1 sub (Vn"; 

to « "/y exch defVn"; 

to « "4»attemRow y pattemByteWidth mul pattcmBytcLwigth mod def^n"; 
to « "^attemRowStfing pattemString pattemRow pattemByteWidth "; 
to « "getinterval defVn"; 

to « "rimagcRow y imageByteWidth mul def'n"; 
to « "0 pattemByteWidth imageByteWidth 1 sub {Vn"; 
to « "A exch dcfVn"; 

to « "imageString imagcRow x add pattemRowString putintervalVn"; 
to «"} foi\n"; 
to « " I fo!\n"; 
to « "imageStringVn"; 
to «"endVn"; 

to « ") dup 0 12 diet put dcfVriVn"; 
to « "Anin (Vn"; 

to « "dup 3 2 roll dup 4 3 roll It { exch } if popVn"; 
to « ") dcfVn\n"; 
to «"Anax {Vn"; 

to « "dup 3 2 roll dup 4 3 roll gt { cxch | if popVn"; 
to « ") dcfVn\n"; 
to « "/arrowhead |Vn"; 
to « "0 beginVn"; 

to « "transform originalCTMitransformVn"; 

to « "Aaily exch defVn"; 

to « "Aailx cxch dcfVn"; 

to « "transform originalCTM itransformVn"; 

to « "Aipy exch def\n"; 

to « "Aipx cxch dcfVn"; 

to « "/dy tipy taily sub dcfVn"; 

to « "/dx tipx tailx sub defVn"; 

to «"/angle dx 0 nc dy 0 nc or { dy dx atan } { 90 } ifclsc dcfVn"; 
to « "gsaveVn"; 

to « "originalCTM setmatrixVn"; 
to « "tipx tipy translatcVn"; 
to « "angle rotateVn"; 
to « "ncwpathVn"; 
to « "0 0 movetoVn"; 
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to « "airowHeight arrowWidth 2 div linetoVn"; 
to « "airowHeight arrowWidth 2 div neg linetoV; 
to « "closepathXn"; 
to « "pattemNone not {\n"; 
to « "originalCTM sctmatrixNn"; 

to « "/padtip arrowHci^t 2 exp 0.25 arrowWidth 2 exp mul add sqrt 

to « "brush Width mul\n"; 

to «"arrowWidth div dcfNn"; 

to « "/padtail brtishWidth 2 div defVi"; 

to « "tipx tipy transIatcNn"; 

to « "angle rotateSn"; 

to « "padtip 0 translateNn"; 

to « "airowHeight padtip add padtail add airowHeight div dup scaleXn"; 
to « "arrowheadpathNn"; 
to 

to « "I if\n"; 

to « "brushNone not {Nn"; 

to « "originalCrM sctmatrixNn"; 

to « "tipx tipy translatcNn"; 

to « "angle rotateNn"; 

to « "arrowheadpathNn"; 

to « "istrokcNn"; 

to «"} ifVn"; 

to « "grcstorcNn"; 

to « "cndvn"; 

to « "} dup 0 9 diet put defNnNn"; 
to « "/arrowheadpath (Nn"; 
to « "newpathNn"; 
to « "0 0 movetoNn"; 

to «"arrowHcight neg arrowWidth 2 div linetoNn"; 

to « "arrowHcight neg arrowWidth 2 div neg linetoNn"; 

to « "closqiathNn"; 

to « "} dcf^Nn"; 

to « "/leftairow {Nn"; 

to « "0 bcginNn"; 

to « "y exch get Aaily cxch dcfVn"; 

to « "x exch get /tailx exch defNn"; 

to « "y exch get /tipy exch defVn"; 

to « "x exch get /tipx exch defNn"; 

to « "brushLeftArrow { tipx tipy tailx taily arrowhead | ifVn"; 
to «"en(fn"; 

to «" I dup 0 4 diet put defNnNn"; 
to « "/rightarrow (Nn"; 
to « "0 bcginNn"; 
to « "y exch get /tipy cxch dcr«"; 
to « "x exch get /tipx cxch defNn"; 
to «"y cxch get /taily exch defNn"; 
to « "x exch get /tailx cxch dcfVn"; 

to « "brushRightArrow { tipx tipy tailx taily arrowhead } ifNn"; 
to « "endVn"; 

to « "} dup 0 4 diet put defNnNn"; 

to « "Anidpoint (Nn"; 

to « "0 bcginNn"; 

to « "/yl cxch defNn"; 

to « "A1 cxch defNn"; 

to « "/yO cxch defNn"; 

to « "/xO cxch defNn"; 

to « "xO xl add 2 divNn"; 

to « "yO yl add 2 divNn"; 

to « "CTcfSn"; 

to « " I dup 0 4 diet put dcNiVi"; 

to « "Ahirdpoint (Nn"; 

to « "0 bcginNn"; 

to « "^1 cxch defNn"; 

to « "ix\ cxch defNn"; 

to « "/yO cxch defNn"; 

to « "/xO cxch defNn"; 

to « "xO 2 mul xl add 3 divNn"; 

to « "yO 2 mul yl add 3 divNn"; 

to « "cndNn"; 

to « ") dup 0 4 diet put defNnNn"; 
to « "^ubspline (Nn"; 
to « "0 bcginNn"; 
to « "AnovcioNceded cxch defNn"; 
to « "y exch gel /y3 cxch defNn"; 
to « "x cxch get /x3 exch defNn"; 
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to 

« 

"y exch get /y2 cxch defVn''; 

to 

« 

"x exch get /x2 exch defNn”; 

to 

« 

"y cxch get /yl exch defNn"; 

to 

« 

"x cxch get/xl exch defNn"; 

to 

« 

"y exch get /yO exch dePn"; 

to 

« 

"x cxch get /xO exch defNn"; 

to 

« 

"xl yl x2 y2 thirdpointNn"; 

to 

« 

"/ply exch defNn"; 

to 

« 

"/plx cxch defNn"; 

to 

« 

"x2 y2 xl yl thirdpointNn"; 

to 

« 

"^2y cxch defNn"; 

to 

« 

"^2x exch defNn"; 

to 

« 

"xl yl xO yO thirdpointNn"; 

to 

« 

"plx ply midpointNn"; 

to 

« 

"^Oy cxch defNn"; 

to 

« 

"^Ox exch defNn"; 

to 

« 

"x2 y2 x3 y3 thirdpointNn"; 

to 

« 

"p2x p2y midpoinfsn"; 

to 

« 

"/p3y exch defh"; 

to 

« 

"4)3x cxch defNn"; 

to 

« 

"movetoNceded { pOxpOymoveto } ifVn"; 

to 

« 

"plx ply p2x p2y p3x p3y curvetoNn"; 

to 

« 

"cndNn"; 

to 

« 

"} dup 017 diet put dcfNriNn"; 

to 

« 

"/storexyn (Nn"; 

to 

« 

"fn exch defNn"; 

to 

« 

"/y n array defNn"; 

to 

« 

"/x n array defNn"; 

to 

« 

"n 1 sub-1 0 {Nn"; 

to 

« 

"/i exch dcNi"; 

to 

« 

"y i 3 2 roll putNn"; 

to 

« 

"x i 3 2 roll putNn"; 

to 

« 

"} foiNn": 

to 

« 

" 1 defNnNn"; 

to 

« 

"%%EndPrologNriNn"; 


// WritcDrawing writes code to store the picture's transfonnation 
// matrix in a Postscript variable and code to draw the picture. 

void PictSelection::WritcDiawing (ostream& to) { 
to « "Sn\n%%Page; 1 INriVn"; 
to « "BeginNn"; 

WritePictGS(to); 

to « "/originalCTM matrix currentmatrix defVoNn"; 

for ^irstO; !AtEnd(); NextQ) ( 

Selection* s = GctCurrcnt(); 
s->WritcData(to): 

I 

to «‘'End " « startdata « " copNnNn"; 
to «“showpagcNnV; 

I 


// WritcData writes the RctSclcction's data and its children 
// Selections' data with Postscript code to draw them. 

void PictSclcction::WriteData (ostream& to) { 
to « "Begin " « startxiata « " PictNn"; 
WritcPictGS(to); 
to « "Vn"; 

for (FirstQ; lAtEndQ; NextQ) I 
Selection* s = GetCurrentO; 
s->WritcData(to); 

) 


to « "End " « startdata « " copNnNn"; 

1 

// WriteTrailer writes clean code. 

void PictSelcction::WriteTrailer (ostream& to) | 
to « "%%Trailc*Nn\n"; 
to « "enthn"; 



// ScaleToPostscriptCoords scales the picture to Postscript 
// coordinates if screen and Postscript inches are different. 


void PictSelection::ScalcToPostscriptCoords () ( 
const double postscriptinch = 72.; 

if (inch != postscriptinch) { 
double topostscript = postscriptinch / inch; 

Scale(topostscript, topostscript); 

} 

} 

// ScaleToScreenCoords scales the picture back to screen coordinates 
// if screen and Postscript inches are differoit 

void PictSclection::ScalcToScreenCoords 0 I 
const double postscriptinch * 72.; 

if (inch != postscriptinch) { 
double toscrcen = inch / postscriptinch; 

Scale(toscrcen, toscrecn); 

} 

} 

// CollectFonts adds its font, if it has one, to the list without 
// checking if the PictSelection contains any TextSelections. If it 
// doesn’t have a font, it collects its children TextSelection's 
// fonts. 

void PictSclection::CollectFonts (IFontList* fontlist) ( 
if (GetFontQ != nil) { 

Merge((IFont*) GetFontO, fontlist); 

} else I 

for (HrstO; !AtEnd(); NcxtO) ( 

Selection* s = GetCurrcntO; 
if (s->HasChildren()) { 

((PictSelection*) s)->CollectFonts(fontlist); 

) else if (s->IsA(TEXTSELECTION)) I 
Merge((IFont*) s->GetFont(), fontlist); 

i 

I 

} 

) 


H Merge merges the print font with the list of all print fonts unless 
// the list already has it 

void PictSclcction::Mergc (IFont* font IFontList* fontlist) ( 
boolean found ^ false; 
if (font nil) { 
found = true; 

) else if (fontlist->Find(font)) { 
found = true; 

) else 1 

for (fontiist->First(); !fontlist->AtEnd(); fontlist->Ncxt()) { 

IFont* cmp = fontlist->GctCur()->GctFont(); 
if (strcmp(font->GctPrintFontO, cmp->GctfMntFont()) = 0) | 
found B true; 
break; 

I 

) 

I 

if(!found){ 

fontlist->Append(new IFontNode(font)); 

) 

1 

int PictSelection:iRndIndcx(ScIection* s) | 
int index = 0; 

for(FirstO; !AtEnd(); NcxtQ. ++index) { 
if (GctCunmtO = s) { 
return index; 

1 

I 
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return -1; 

) 


Selection* PictSelection::GetSelection(int index) { 
int counter = 0; 

for(Hret(); lAtEndQ; Next()) { 
if (counter ** index) ( 
return GetCurrcntO; 

I 

■f+counter, 

I 

return nil; 

} 


sipolygons.h 


#ifiidef slpolygons_h 
#define slpolygons_h 

#include "selcction.h" 

// A RectSelection draws a rectangle with an outline and a filled 
// interior. 

class RectSelection : public NPtSelection { 
public: 

RectSelection(Coord, Coord, Coord, Coord, Graphic* = nil); 
RectSelection(istream&, State*); 

Graphic* Copy(); 

void GetOriginal2(Coord&, Coord&, Coord&, Coord&); 
int GetOriginal(const Coord*&, const Coord*&); 

protected: 

void WriteData(ostream&); 

RubberVertex* CreateRubberVcftex(Coord*, Coord*, int, int); 
Selection* CrcateReshapedCopy(Coord*, Coord*, int); 


}; 


// A PoIygonSelection draws a polygon with an outline and a filled 
// interior. 

class PoIygonSelection : public NPtSelection | 
public: 

PolygonSclection(Coord*, Coord*, int. Graphic* * nil); 
PolygonSclcction(istreain&, State*); 

Graphic* Copy(); 

int GetOriginal (const Coord*&, const Coord*&); 
protected: 

RubberVertex* CrcateRubberVcrtex(Coord*, Coord*, int, int); 
Selection* CrcateReshapedCopy(Coord*, Coord*, int); 


1 : 


#cndif 


sipolygons.c 


#includc "ipolygonsdi" 
#includc "lubbandsJi" 
#include "slpolygons.h" 
#include "dfdclassesJi" 
#include <stream.h> 


// RectSelection creates the rectangle's filled interior and outline. 
RectSelection::RectSelection (Coord 1, Coord b, Coord r, Coord t. Graphic* gs) 

:(gs) { 
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myname = "Reel"; 

Append{ncw UnllRectCi, b, r, t)); 

Appcnd(new RcctO, b, r, t)); 

SctClassIdCTERMlNATOR); 

} 

// RectSelection reads data to initialize its graphic state and create 
// its filled interior and outline. 

RectSelcction::RectSelection (istream& from, State* state): (nil) | 
myname « "Rcct"; 

ReadGS(from, state); 

Skipffrom); 

Coord 1, b, r, t; 

from »1» b » r »t; 

Appcnd(ncw IFillRect(!, b, r, t)); 

Appcnd(new Rect(l, b, r, t)); 

SctClassIdCTERMlNATOR); 

I 

// Copy returns a copy of the RectSelection. 

Graphic* RcctSclection::Copy 0 { 

Coord I, b, r, t; 

GctOriginal2(I, b, r, t); 

return new RcctSeIcction(l, b, r, t, this); 

) 


// GetOriginaI2 returns the two comers that were passed to the 
// RectSelection's constructor. 

void RcctSelcction::GetOriginaI2 (Coord& 1, Coond& b, Coord& r. Cooni& t) { 
((Rect*) Last())->GetOriginal(l, b, r, t): 

) 


// GetOriginal returns the two comers that were passed to the 
// RectSelection's constructor plus the other two opposite comers. 

int RectSetection::GetOriginaI (const Coord*& x, const Coord*& y) { 
static Coord sx[4], sy(4]; 

GetOriginal2(sx[0], sy[0], sx(2], sy[2]); 

sx[I]« sx[0]; 

sy[l]=sy[2]: 

sx[3] = sx{2]; 

sy[3]-sy[0]; 

X »sx; 
y = sy; 
return 4; 

1 

// WriteDala writes the RectSelection's data and Postscript code to 
// draw it 

void RectSelection::WritcData (ostream& to) { 

Coord 1, b, r, t; 

GctOriginaI2(i, b, r, t); 

to « "Begin " « startdata « " RectNn"; 

WriteGSClo); 

to « startdata «'V"; 

to «1« " " « b « " " « r << " " «t« " RectNn"; 
to « "EndSnNn"; 

I 


// CreateRubberVertex creates and returns the right kind of 
// RubbcrVeitex to r^resentthe RectSelection's shape. 

RubbcrVcrtex* RcctSclcction::CrcatcRubbcrVcrtex (Coord* x. Coord* y, 
ini n, ini rubpt) { 

return new RubberPolygon(nil, nil, x, y, n, rubpt); 

) 

// CreateReshapedCopy creates and returns a reshaped copy of itself 
// using the passed points and its graphic state. It returns a 
// PolygonSelection because the points may not shape a rect any more. 

Selection* RectSelection::CreateRcshapedCopy (Coord* x. Coord* y,int n) ( 
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return new PolygonSelcction(x, y, n, this); 

) 

H PolygonSelection creates the polygon’s filled interior and outline. 

PolygonSeIection:d^olygonSelection (Coord* x, Coord* y, intn, Graphic* gs) 

: (gs) I 

mynamc = "Poly"; 

Appcnd(new IFiIlPolygon(x, y, n)); 

Append(ncw Polygon(x, y, n)); 

} 

// PolygonSelection reads data to initialize its graphic state and 
// create its filled interior and outline. 

PolygonSelection::PolygonSelection (istream& from. State* state): (nil) | 
myname = "Poly"; 

RcadGS(from, state); 

Coord* x; 

Coord* y; 
int n; 

RcadPoints(from, x, y, n); 

Append(new IFillPolygon(x, y, n)); 

Appcnd(ncw Polygon(x, y, n)); 

) 


// Copy returns a copy of the Polygor^election. 

Graphic* PolygonSelcction:;Copy 0 { 

Coord* x; 

Coord* y; 

int n s GetOriginal(x, y); 

Graphic* copy « new PolygonSclcction(x, y, n, this); 
return copy; 

} 

// GetOnginal returns the vertices that were passed to the 
// PolygonSelection's constnjctor. 

int PolygonScIection::GetOriginal (const Coord*& x, const Coord*& y) { 
return ((Polygon*) LastO)->GclOriginal(x, y); 

I 


// CreateRubberVertex creates and returns the right kind of 
// RubberVertex to r^resent the PolygonSelection's shj^e. 

RubberVeitcx* PoIygonSelcction::CreateRubberVertcx (Coord* x. Coord* y, 
intn.intrubpt) { 

return new RubberPolygon(nil, nil, x, y, n, rubpt); 

\ 

I I CreatcRcshapedCopy creates and returns a reshaped copy of itself 
// using the passed points and its graphic state. 

Selection* PolygonSclection::CrcatcReshapcdCopy (Coord* x, Cooid* y, int n) { 
return new PolygonSelcction(x, y, n, this); 

I 


sIspUnesd) 


#ifhdef slsplines_h 
tdefine slsplines_h 

tinclude "selection.h" 

#inciude "IntcrViews/defs.h" 

class Edge; 

// A BSplineSelection draws an open B-spline with a filled interior. 

class BSplineSelection : public NPtSelection { 
public: 


BSplineSelection(ClassId, Coord*. Coord*, int. Graphic* = nil); 
BSplincSclcction(Coord*, Coord*, int. Graphic* * nil); 
BSplincSclection(istrcam&, State*); 
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Graphic* CopyO; 

int GctOriginsd(const Coord*&, const Coord*&); 

Selection* CrcateReshapcdCopy(Coord*, Coord*, int, Classid); 

Selection* CreateRcshapcdCopy(Coord*, Coord*, int); 
boolean IsAStreamO; 
void SetStreamO; 

protected: 

void Init(Coord*, Coord*, int); 

RubberVertex* CreatcRubberVertex(Coord*, Coord*, int, int); 
void uncacheChildrenO; 

void getExtent(float&, float&, float&, float&, float&. Graphic*); 
boolean contains(PointObj&, Graphic*); 
boolean intersects(BoxObj&, Graphic*); 
void draw(Canvas*, Graphic*); 

void drawClippcd(Canvas*, Coord, Coord, Coord, Coord, Graphic*); 

Graphic* ifillbspline;//fills an open B-spline 
Graphic* bspline;// draws an open B-splinc 
Coord 1x0, lyO, 1x1, lyl;// stores endpoints of left arrowhead 
Coord rxO, i^, rxl, ryl;//stores endpoints of right arrowhead 
boolean is_strcam; H stores where data flow is stream or not 
1 : 


// A QosedBSplincSelection draws a closed B-spline widi a filled 
// interior. 

class QosedBSplineSelection : public NPtSelechon ( 
public: 

ClosedBSplincSelection(Coord*, Coord*, int. Graphic* * nil); 
ClosedBSplincSclcction(istrcam&, State*); 

Graphic* CopyO; 

int GetOriginai (const Coord*&, const Coord*&): 
protected: 

RubberVertex* CreateRubberVertex(Coord*, Coord*, int, int); 
Selection* CreatcRcshapedCopy(Coord*, Coord*, int); 


#cndif 


sispllnes.c 


tinclude "dfdclassesJi" 

#include "isplines.h" 
finclude "slsplinesJli" 

#include <InterVicws/rubcurvc.h> 

#include <IntcrViews/Std/strcam.h> 

// BSplineSelection creates its components. 

BSplineSelection:£SplineSelection (Classid classid. Coord* x. Coord* y, 
int n.Graphic* gs): (classid, gs) { 
lnit(x,y, n); 

1 

BSplineSelection:£SplineSclcction (Coord* x, Coord* y, intn. Graphic* gs) 
: (gs) I 
Init(x, y, n): 

} 


// BSplineSelection reads data to initialize its graphic state and 
// create its components. 

BSplineSelection:*3SplineSelection (istream& from, Suie* state) 
: (nil) ( 
bspline snil; 

ReadGS(from, state); 
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Coord* x; 

Coord* y; 
intn; 

RcadPoints(from, x, y, n); 
Init(x, y, n); 

} 


// Copy returns a copy of thcBSplineSclcction. 

Graphic* BSplincSclcction::Copy 0 I 
Coord* x; 

Coord* y; 

ini n * GetOrigina!(x, y); 

Graphic* copy = new B$plineSclection(Xf y, n, this); 
return copy; 

} 

// GetOriginal returns the control points that were passed to the 
// BSplineSelection’s constructor. 

int BSplineSclection::GetOriginal (const Coord*& x, const Coord*& y) { 
return ((BSpline*) bspline)->GetOriginal(x, y); 

} 

// Init creates the graphic's components and stores the arrowheads' 

// endpoints. 

void BSplineSelection::Init (Coord* x. Coord* y, int n) { 
is_stream * false; 

myname = "BSpl"; 

ifillbspline = new IFillBSpline(x, y, n); 
bspline * new BSpline(x, y, n); 
lx0 = x[0]; 
lyO * y(0]; 

Ixl ^x(l]; 
lyi=ym: 
rxO = x(n-l]; 
ryO = y[n-l]: 
rxl = x[n*2]: 
ryl =y[n-2]; 

) 


// CrcatcRubberVcrtex creates and returns the right kind of 
// RubberVeitex to r^resent the BSplineSelection's shape. 

RubberVertex* BSplincSclcction::CrcateRubbcrVcrtcx (Coord* x. Coord* y, 
int n, int rubpt) { 

return new RubberSpline(nil, nil, x, y, n, rubpt); 

} 

// CreatcReshapcdCopy creates and returns a reshaped copy of itself 
// using the passed points and its graphic state. 

Selection* BSplineSclcction::CreateRcshapcdCopy (Coord* x. Coord* y.intn, 
Classid cid) { 

return new BSplineSelection(cid, x, y, n, this); 

} 


Selection* BSpIincSelcctionxCreatcRcshapedCopy (Coord* x. Coord* y, int n) ( 
return new BSplineSeIection(cid, x, y, n, this); 

} 

// uncacheChildrcn uncaches the graphic’s components' extents. 

void BSplineSeIcctionrruncacheChildrcn () { 
if (bspline !* nil) { 
uncacheExtcntGraphic(ifillbsplinc); 
uncacheExtentGraphic(bspline); 

1 

I 

// geiExtcnt returns the graphic’s extent including a tolerance for 
// the arrowheads. 

void BSplincSclcction::gctExlcnt (float& 1, float& b, float& cx, float& cy. 
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float& tol, Graphic* gs) { 

Extent c; 

if (cxtentCachedO) { 

getCachedExtent(e.left, ©.bottom, e.cx, e.cy, c.tol); 

) else { 

FuilGraphic gstmp; 

concatGSGraphic(ifillbspline, this, gs, &gstmp); 
getExtcntGraphic( 

ihllbspline, e.left, e.bottom, e.cx, e.cy, e.tol, &gstmp 

); 

Extent te; 

concatGSGraphic(bspline, this, gs, &gstmp); 
getExtentGraphic( 

bspiine, te.left, te.bottom, te.cx, te.cy, tc.tol, &gstmp 

); 

e.Merge(tc); 

cacheExtcnt(e.left, e.bottom, e.cx, e.cy, c.toI); 

1 

float right = 2*e.cx - e.lcft; 
float top » 2*c.cy - e.bottom; 
float dummyl, dummy2; 

transformRect(e.left, e.bottom, ri^t, top, 1, b, dummyl, dummy2, gs); 

transform(e.cx, e.cy, cx, cy, gs); 

tol * MergeArrowHeadTol(e.tol, gs); 


// contains returns true if the graphic contains the point 

boolean BSplineSelection::contains (PointObj& po. Graphic* gs) { 
BoxObj b; 
gctBox(b, gs); 
if (b.Contains(po)) { 

if (containsGraphic(ifillbsplinc, po, gs)) { 
return true; 

} else if (containsGraphicfbspline, po, gs)) { 
return true; 

i else if (LcftAcontGxO, lyO, Ixl, lyl, po, gs)) | 
return true; 

} else if (RightAcont(rxO, ryO, rxl, ryl,po, gs)) { 
return true; 

1 

» 

return false; 

I 

// intersects returns true if the graphic intersects the box. 

boolean BSplincSclection:nntcrsects (BoxObj& userb. Graphic* gs) ( 
BoxObj b; 
getBox(b, gs); 
if (b.Intcrsccts(userb)) { 
if (intersectsGraphic(ifillbspline, userb, gs)) { 
return true; 

} else if (inteisectsGraphic(bspline, userb, gs)) | 
return true; 

I else if (LeftAintsGxO, lyO, 1x1, lyl, userb, gs)) { 
return true; 

I else if (RightAints(rxO, ryO, rxl, ryl, userb, gs)) | 
return true; 

1 

) 

return false; 

I 

// draw draws the graphic. 

void BSp!ineSelection::draw (Canvas* c. Graphic* gs) { 
diawGraphic(ifll]b6pline, c, gs); 
drawGraphic(bspline, c, gs); 
drawLefLA(lxO, lyO, 1x1, lyl, c, gs); 
drawRightA(aO, ryO, rxl, ryl, c,gs); 

I 


// drawCnipped draws the graphic if it intersects the clipping box. 

void BSplincSclection;:drawClipped (Canvas* c. Coord I, Coord b. Coord r. 
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Coord t. Graphic* gs) { 

BoxObj box; 
gctBoxCbox, gs); 

BoxObj clipBoxO, b, r, t); 
if (clipBox.Intcrsects(box)) { 
draw(c, gs); 

I 

I 

// QosedBSpIineSelection creates the closed B-spline’s filled 
// interior and outline. 

ClosedBSplineSelectionriQosedBSplineSelection (Coord* x, Coord* y, int n. 
Graphic* gs): (gs) ( 
myname =s "CBSpl"; 

Appcnd(new lFinCloscdBSplinc(x, y, n)); 

Appcnd(new ClosedBSpline(x, y, n)); 

) 


// ClosedBSplineSelection reads data to initialize its graphic state 
// and create the closed B-spline's filled interior and outline. 

Clc«cdBSplineSelection::ClosedBSplineSelection (istream& from, State* state) 

: (nil) ( 

myname = "CBSpl"; 

ReadGS(frotn, state); 

Coord* x; 

Coord* y; 
inln; 

ReadPoints(from, x, y, n); 

Append(newIFillClosedBSpline(x, y, n)); 

Append(new CIosedBSpline(x, y, n)); 

I 

// Copy returns a copy of the ClosedBSplineSelection. 

Graphic* OosedBSplineSelection::Copy () { 

Cooid* x; 

Coord* y; 

int n « GetOriginal(x, y); 

Graphic* copy = new ClosedBSplmeSelection(x, y, n, this); 
return copy; 

I 

// GetOriginat returns the control points that were passed to the 
// GosedBSplineSelection’s constructor. 

int Cl(»edBSplineSelection::GetOriginal (const CooTd*& x, const Coord*& y) { 
return ((CIoscdBSplinc*) Last())->GctOriginal(x, y); 

I 

// CrcatcRubbcrVcrtcx creates and returns the ri^t kind of 
// RubberVcrtcx to represent the ClosedBSplincSclection's shape. 

RubbcrVcitcx* ClosedBSplincScIcction::CreateRubbcrVcrtex (Coord* x. Coord* y, 
int n, int rubpt) { 

return new RubbcrCloscdSplinc(nil, nil, x, y, n, rubpt); 

) 


// CreateReshapedCopy creates and returns a reshaped copy of itself 
// using the passed points and its graphic state. 

Selection* CiosedBSpIineSeIection::CreateReshapedCopy (Coord* x. Coord* y, 
int n) ( 

return new QosedBSplineSelection(x, y, n, this); 

i 

// return whether spline is stream or not 

boolean BSplineSeiectionidsAStreamO { 
return is_stream; 

I 

// set value of is_stream 
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void BSplineSelection::SetStrcam() { 
is_stream »true; 

} 


sitexth 

#ifndcf sltcxt_h 
#dcfine sltcxt_h 

#iiicludc "sclcction.h" 

// Declare imported types. 

class TextBuffer, 

// A TextSelection draws one to several lines of text 

static const Classid TBXTSELECTION *= 2100; 

class TextSelection : public Selection ( 
public: 

Texts election (Classid, const char*, int. Graphic* = nil); 
TextSelection(const char*, int. Graphic* = nil); 
TcxtSelcction(istream&, State*); 

'“TextSelectionO; 

Graphic* CopyO; 
boolean IsA(ClassId); 

const char* GetOriginal(int&); 
boolean ShapedBy(Coord, Coord, float); 

char *GetStringO; 
char *GetValidString(): 

boolean GetDefPositionO; 
void SetDcfPosition(boolean); 

protected: 

void draw(Canvas*, Graphic*); 

void drawClipped(Canvas*, Coord, Coord, Coord, Coord, Graphic*); 
void ReadjustSpacingCPFont*); 

void Init(const char*, int); 

const char* ReadTextData(istream&, int&); 

void WriteData(ostream&); 

const char* Rltcr(const char*, int); 

boolean defPosition; 

char* tbuf;// stores the TextSelection's text 
TextBuffer* text;// operates on the text 
int lineHt;// stores previous line height 


#CTdif 

sUextc 

#include "dfdclasses.h" 

#inciude "ipainUi" 
fincludc "istringJi" 

#include ''sltext.h" 

tinclude <InterViews/Graphic/labelJi> 
#include <InterViews/textbufferJi> 
#include <bstring.h> 

#include <streamJi> 


// Both ReadTextData and Filter use this big static buffer. 

static const int SBUFSIZE «= 10000; 
static char sbuflSBUFSIZEJ; 
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// TextSelection gets passed its graphic state, text, and type of text 


TextSelection::TextSelection (Classid classid, const char* orig, int len. 
Graphic* gs): (classid, gs) { 

Init(orig, len); 

} 

//TextSelection gets passed its graphic state and text 

TextSelection::TextSelection (const char* orig, int len, Graphic* gs) 

: (COMMENT, gs) { 

Init(orig, len); 

I 


// TextSelection reads its graphic state and text from a hie. 

TextSclection::TextSclection (istream& from. State* state): 
Selection((Graphic*)niI) | 

ReacfTextGSCfrom, state); 
int len; 

const char* orig = ReadTextData(from, len); 
lnit(orig, len); 

I 

// Init copies the original text and appends Labels for each line of 
// text to the TextSelection. 

void TextSelcction::Init (const char* orig, int len) { 
defPosition »true; 

int tbufsize s max(len, 1); 

tbuf s new charftbufsize]; 

bcopy(orig, tbuf, lav); 

text« new TextBuffer(tbuf, len, tbufsize); 

lineHt = 0; 

int lines * text->HcightO; 
for (int i = 0; i < lines; ++i) { 
int bol»text->LineIndex(i); 
int eol = tcxi->EndOfLine(bol); 

/* need this crock for now because Label(t, 0) is buggy */ 
if (eol-bol>0){ 

Appcnd(new l^bel(text->Text(boI, eol), eol - bol)); 

) else { 

Append(ncw Label C’")); 
i 

I 

ReadjustSpacing(GetFontO); 

} 


// Free storage allocated for the text in the TextSelection. 

TextSelection::'-TextSclection () { 
delete text; 
delete tbuf; 

1 


// Copy returns a copy of the TextSelection. 

Graphic* TcxtSelection::CopyO I 

return new TextSelection(GetGassId(), tcxt->TextO, text->Length(), this); 

I 

// Is A returns true if the TextSdcction is a TextSelection so Editor 
// can identify TextSelections and edit them differently. 

boolean TextSelection: JsA (Qassidid) { 
return id == LABEL.OP II id = LABEL.DF II id = LABEL_SL II 
id = COMMENT II id == MET_OP II id = LAT.DF; 

I 


// GetOriginal returns a pointer to the TextSclection's text. 

const char* TcxtSclcction::GetOriginal (inl& len) { 
len ® tcxt->Lcngth(); 
return tcxt->Tcxt(); 
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char *TcxtSclection::GetStringO I 
int len; 

const char ♦str = GetOriginal(len); 
char *rva! = new char[len + 1]; 
stmcpy(rval^tr,lcn); 
rva![ien] = 0; 
return rvai; 

I 


char *TcxtSclcction::GetValidStrmgO { 
char *str = GetStringO: 
char *rval = RemoveBadChars(str); 
delete [] str, 
return rval; 

} 


// ShapedBy returns true if the TextSelection intersects a box around 
// the given point. 

boolean TextSelection::ShapedBy (Coord px, Coord py, float maxdist) ( 
int slop = round(maxdist / 2); 

BoxObj pidcpoint(px - slop, py - slop, px + slop, py + slop); 
return (LastGraphicIntersecting(pick:point) !=: nil); 

) 


// draw readjusts the spacing between lines of text for a new font if 
// necessary and sets fillbg false and pattern solid to draw the text 
// like the printer will. 

void TcxtSelection::draw (Canvas* c. Graphic* gs) { 
ReadjustSpacing(gs>>GctFontO); 
boolean fillbg = gs->BgKlledO: 

PPattem* pattern = gs->GetPattcmO: 

gs*>SetPattem(psolid); 

gs->FillBg(falsc); 

Selectjon::draw(c, gs); 

gs.>FillBg(filIbg); 

gs*>SetPattem(pattem); 

I 


// drawClipped readjusts the spacing between lines of text for a new 
// font if necessary and sets fillbg false and pattern solid to draw 
// the text like the printer will. 

void TcxtSelection::drawClipped (Canvas* c, Coord 1, Coord b. Coord r. Coord t. 
Graphic* gs) { 

RcadjustSpacing(gs->GetFontO); 
boolean fillbg = gs->BgFilledO; 

PPattem* pattern * gs->GetPattemO; 

gs->SetPattcm(psolid); 

gs->FillBg(false): 

Selection ::drawClipped(c, I, b, r, t, gs); 

gs->FillBg(fillbg); 

gs*>SctPattcm(pattcm); 

1 

// ReadjustSpacing recalculates the spacing between lines of text. 

void TextSelcction::RcadjustSpacing (PFont* font) { 
if (font != nil) | 

int newHt = ((IFont*) font)->GctLincHtO: 
if (lineHt !=ncwHt) { 
lineHt» newHu 
int vertofTset = -lineHt + 1; 
for (FirstO: !AtEnd(); Ncxt()) { 

Graphic* label - GetCurrraitO; 
label->SetTransformcr(nil); 
labcl->Translate(0, vertoffset); 
venoffset -= lineHt; 

1 

1 

I 
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) 


// ReadTextData reads and returns the text contained in the PostScript 
// representation of the TextSelection. 

const char* TextSelection::ReadTextData (istream& from, int& len) { 
TextBuffCT stext(sbuf, 0, SBUFSIZE); 
charnl s \i'; 


if (versionnumber >= NONREDUNDANTVERSION) { 
Skip(from); 
int dot = 0; 
char c * ‘ 

while (from » c && c != T) I 
while (c !='(' && from.gct(c)) { 

I 

while (from.get(c) && c 1= O') I 
if(c==NV){ 
from.get(c); 

1 

stext.Inscrt(dot++, &c, 1); 

I 

stcxtInsert(dot++, &nl, 1); 

I 

stcxtDelete(—dot, 1); // buffer must not terminate in \n’ 

} else I 
int dot = 0; 

while (from » buf && strcmp(buf, startdata) ==== 0) { 
char blank; 
from.getfblank); 
from.gctfbuf, BUFSIZE -1); 
int buflen * strlcn(buf) + 1; 
buf[buflcn -1] = V; 
stext.lnsert(dot, buf, buflen); 
dot += buflen; 

I 

stext.Delete(—dot, 1); // buffer must not terminate in Nn’ 

I 

len 3 stextLengthO; 
return stextText(); 

I 

// WriteData writes the TextSelection's data and Postscript code to 
// draw it. 

void TcxtSelection::WriteData (ostream& to) { 
to « "Begin " « startdata « " TcxtNn"; 

WritcTcxtGS(to); 
to « startdata « "Sn"; 
to « "(Nn"; 

int lines = text->HcightO; 
for (int i = 0; i < lines; ++i) { 
int bol =text->LincIndcx(i); 
int eol = tcxt->EndO£Line(bol); 
const char* string = Filter(text->Tcxt(bol, eol), col - bol); 
to « "(" « string « ")\n"; 

I 

to « "] TextV; 
to «‘'EndSnNn"; 

} 


// Filter escapes embedded special characters that would cause syntax 
// errors in a Postscript string. 

const char* TcxtSclectionttFilter (const char* string, int len) { 
TcxtBuffcrstcxt(sbuf, 0, SBUFSIZE); 
char CSC = \V; 
charnul* V)'; 

int dot« 0; 

for (int i * 0; i < len; i++) ( 
switch (*string) { 
case T: 
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case 
case NV: 

stext.Insert(dot++, &esc, 1); 

// fall through 
default: 

stext.Insert(dot++, string-H-» 1); 

1 

1 

stcxtInsert(dot++, &nul, 1); 
return stextTextQ; 

I 

boolean TextSelcction::GetDefPositionO { 
return defPosition; 

) 


voidTextSelcction::SetDefPosition(boolean d) { 
defPosition = d; 

} 


state.h 

#i&idcf statc_h 
#define statc_h 

#include <InterViews/dcfsJi> 

//Declare imported types. 

class Graphic; 
class IBrush; 
class IColor, 
class IFont; 
class IPattem; 
class Interactor, 
class Interacto^ist; 
class MapIBrush; 
class MapIColor, 
class MapIFont; 
class MaplPattem; 
class Page; 
class Transformer, 

// A State stores state information about the user's drawing and paint 
// attributes to be used when creating new Selections. 

enian MoctifStatus { 

ReadOnlyy/no modifications to drawing allowed 
Unmodified^/ no modifications have been made yet 
Modified// at least one modification has been made 

1 : 


class State { 
public: 

Statc(Interactor*, Page*); 

“StatcQ; 

void Constrain(Coord&, Coord&); 
void ToggleOriCTitationO; 

IBrush* GetBrushQ; 

IColor* GctFgCoIorO; 

int GctFgColorIndcx(IColor*); 

IColor* GctBgCoIorO: 

int GctBgCoIorlndexflColor*); 

const char* GetDrawingNameO; 

const char* GetMessageQ; 

boolean GetFillBgO: 

IFont* GetFontO; 
int GetFontIndexfIFont*); 
Graphic* GctGraphicGSO; 
boolean GetGridGravityQ; 
double GetGridSpacingO; 
boolean GetGridVisibilityQ; 
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int GetLineHtO; 
float GctMagnifQ; 

MapIBnish* GctMapIBmshC); 

MapICoIor* GctMapIFgCoIor(); 

MapICoIor* GctMapIBgColorO; 

MapIFont* GctMapIFont(); 

MapIPattem* GetMapIPattemO; 

ModifStatus GetModifStatusQ; 

IPattem* GetPattemQ: 

IPattcm* GetArrowPattcmO: 

Graphic* GctTcxtGSQ: 

Painter* GctTcxtPaintcr(): 

void SctBrush(IBrush*); 

void SctFgColor(IColor*); 

void SctBgColor(IColor*); 

void SctDrawingName(const char*); 

void SetMessage(con5t char*); 

void SctFillBg(boo!can); 

void SctFont(IFont*); 

void SctGraphicT(Transfoiiner&); 

void SctGridGravity(boolean); 

void SetGridSpacing(double); 

void SctGridVisibiIity{boolcan); 

void SetMagnif(float); 

void SetModifStatus(ModifStatus); 

void SctPattcm(IPattcm*); 

void SctTcxtGS(Coord, Coord, Painter*); 

void SctTextGS(Graphic*, Painter*): 

void Attach (Interactor*); 
void Detach (Intcractor*); 
void UpdateViews(); 

protected: 

char* drawingname;//stores drawing's filename 

char* msg; // stores editor message string 

Graphic* graphicstatc;// stores all attributes for creating graphics 

Transformer* graphicstatc_t;//stores matrix for creating graphics 

boolean gridding;// stores tme if grid will constrain points 

double gridspacing;// stores spacing betweoi grid pts in points 

float magnif;// stores drawing view's magnification factor 

MapIBnish* mapibrush;//stores list of possible brushes 

MapICoIor* mapifgcolon// stores list of possible fg colors 

MapICoIor* mapibgcolor;// stores list of possible ^ colors 

MapIFont* mapifont;// stores list of possible fonts 

MapIPattem* mapipattem;// stores list of possible patterns 

MapIPattem* mapiarrowpattem; // stores list of possible arrow patterns 

ModifStatus modifstatus;//stores drawing's modification status 

Page* page;//stores all grid attributes 

Graphic* textgs;// stores all attributes for creating text 

Transformer* tcxtgs_t;// stores matrix for creating text 

Painter* tex^ainter,// stores all attributes for editing text 

Transformer* textpaintcr_t;// stores matrix for editing text 

float textx;// stores last place text was being edited 

float texty;// stores last place text was being edited 

int lineHt;// stores spacing between lines of text 

Interactorlist* viewlist;// stores list of views to notify 


#endif 


$tate.c 

#include “ipainUi" 

#include "istring.h" 

#include "listintrctrJi" 

#include "mapipainth" 
finclude "pageJi" 

#include ‘’statc.h‘' 

#includc <IntcrViews/graphic.h> 
#include <lntcrViews^tcraclor.h> 
#include <InterViews^aintcrJi> 
#inciude ^ter'Sf^ewsAransformer.h> 
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// State stores some Graphic and nonGraphic attributes. 

State::State (Interactor* i, Page* p) { 
drawingname =* nil; 
msg = nil; 

graphicstate = new FullGraphic; 
graphicstate_t = new Transformer, 
magnif = 1.0; 

mapibrush snew MapIBrush(i, "brush"); 
mapifgcolor *= new MapIColor(i, "fgcolor"); 
mapibgcolorsnew MapIColor(i, "bgcolor"); 
mapifont «= new MapIFont(i, "font"); 
mapipattem = new MapIPattcm(i, "pattern"); 
mapiarrowpattem = new MapIPattcm(i, "arrowpattem"); 
modifstatus = Unmodified; 
page = p; 

textgs ss new FullGraphic; 
tcxtgs_t s= new Transformer; 
tcx^aintcr * new Painter; 
tcxtpainter->RcfcrenccO; 
tex^ainter_t« new Transformer, 
viewlist = new InteractorList; 

graphicstate<>SetBrush(mapibrush->GetInitial()); 

graphicstate>>SetCoIors( 

mapifgcolor->GetInitial(), mapibgcolor->GetInitialO 

); 

graphicstate->Fi IlBg(tfue); 
graphicstate->SctFont(mapifont->GctInitial()); 
graphicstate->SetPattem(mapipattem->GetInitial()); 
graphicstate->SetTransformer(graphicstate_t); 
tcxtgs->SetTransformer(textgs_t); 
tcx^jainter->SetTransformcr(tcx^ainter t); 

) 


// -State frees storage allocated to store members. 

Statc::-State () { 
delete drawingname; 
delete graphicstate; 
delete mapibrush; 
delete mapifgcolor; 
delete mapibgcolor, 
delete mapifont; 
delete mapipattem; 

delete mapiarrowpattem; 
delete textgs; 

Unref(textpainter); 
delete viewlist; 

} 


// The following functions add Page operations to State. 

void State: rConstrain (Coord& x, Coord& y) { 
page->Constrain(x, y); 

I 

void State: :ToggleOriaitation 0 { 
page->ToggleOrientation(); 

} 

// The following functions return Graphic and nonGraphic attributes of 

// the State. 

IBrush* Statc::GctBrush () { 

return (IBrush*) graphicstatc->GetBmshO; 

I 

IColor* Statc::GctFgColor () ( 
return (IColor*) graphicstate“>GetFgColor(); 

1 

IColor* State::GctBgColor () | 
return (IColor*) graphicstat©->GctBgColorO; 

} 
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int State::GctFgColorIndex (IColor *c) { 
int count = 0; 

for (niapifgcolor'>Fiist();!mapifgcolor->AtEnd();mapifgcolor->NcxtO) { 
if (mapifgcolor->GctCur() = c) 
return count; 
count++; 

I 

return -1; 

} 


intStatc:;GetBgColoiIndcx (IColor ^c) { 
int count * 0; 

for (mapibgcolor->FirstO;!mapibgcolor->AtEnd();mapibgcolor->NextO) I 
if (mapibgcolor->GetCurO ** c) 
return count; 
count++; 

) 

return -1; 

1 


const char* State:;GctDrawingNaine 0 { 
return drawingname; 

} 


const char* State::GetMessageO { 
return msg; 

I 


boolean State::GetFiIlBg () | 
return graphicstate“>BgFilled(); 

I 

EFont* State: :GetFont 0 { 

return (IFont*) graphicsiate->GctFont(); 

} 


int State: :GetFontlndex (IFont *0 ( 
int count sO; 

for (mapifont->First();Imapifont->AtEnd();mapifont->NextO) { 
if (mapifont*>GctCur() = 0 
return count; 
count++; 

} 

return -1; 

) 


Graphic* State::GetGraphicGS () ( 
return graphicstate; 

I 


boolean Statc::GctGridGravity () { 
return pagc->GetGridGravity(); 

} 


double State::GetGridSpacing () { 
return page->GctGridSpacing(); 

) 


boolean Statc::GetGridVisibility Q { 
return page*>GetGridVisibility(); 

I 

int State: :GetLineHt 0 I 
return lineHt; 

) 

float State::GetMagnif () | 
return magnif; 

I 

MapIBrash* Statc::GctMapIBnjsh 0 { 
return mapibrush; 

I 

MapIColor* State;;GetMapIFgColor () 1 
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return mapifgcolor; 

I 

MapIColor* State::GetMapIBgColor () ( 
return mapibgcolor, 

I 

MapIFont* State: :GctMapIFont () { 
return mapifont; 

) 

MapIPattem* State::GetMapIPattem() { 
return mapipattem; 

I 


ModifStatus State::GetModifStatus 0 { 
return modifstatus; 

I 


// Return stored arrow pattern 

IPattem* Statc;;GctAiTowPattcmO { 
return mapiarrowpattcm->GctCurO; 

} 

IPattem* State::GctPattcm 0 { 
return (IPattem*) graphicstatc->GctPattemO; 

} 


Graphic* State::GctTcxtGS 0 1 
return textgs; 

} 


Painter* Statc::GetTextPaintcr 0 { 
return textpainter; 

} 

//The following functions set Graphic and nonGraphic attributes of 
// the State. 

void State;iSetBrush (TOrush* b) { 
gTaphicstate->Set6rush(b); 

) 


void State:rSetFgColor (IColor* fg) { 
graphicstate'>SetCo)ors(fg, graphicstatc->GetBgColorO); 
I 


void State::Set£gColor (IColor* bg) { 
graphicstate-5^ctColors(graphicstate->GetFgColoT().bg); 

1 

void State: iSetDrawingName (const char* name) { 
delete drawingname; 

drawingname =: name ? strdup(name): nil; 

I 


void State::SetMessage(const char* m) ( 
delete msg; 

msg ■ m ? strdup(m); nil; 

1 


void State::SetFillBg (boolean fill) { 
graphicstatc->FillBg(fill); 

I 

void State: :SetFont (IFont* f) { 
graphicstate->SetFont(f); 

I 

void State:;SetGraphicT (Transformer& t) { 
*graphicstate_t«t; 

graphicstate_t->InvcrtO; 

Transformer tnew; 
float left, top; 



graphicstate_t->InvTransfoim(textx, texty, left, top); 
tnew.Scale(magnif, magnif); 
tncw.TranslateOeft, top); 

*tcxtpamler_t = tnew; 
tnewJPostmu!tipIy(graphicstatc_t); 

*tcxtgs_t = tnew; 

} 


void State::SctGridGravity (boolean g) { 
page->SetGridGravity(g); 


void State::SctGridSpacing (doubles) { 
page->SetGridSpacing(s); 

} 

void State::SetGridVisibility (boolean v) { 
page->SctGridVlsibility(v); 

} 


void State: :SetMagnif (float m) { 
magnif = m; 

I 

void State: :SetModifStatus (ModifStatus m) { 
modifstatus - m; 

I 


void State: iSetPattcm (IPattem* p) | 
graphicstate->SetPatteni(p); 

} 

void State::SctTe3ttGS (Coord left. Coord top. Painter* ou^iut) { 
PCoIor* fg = graphicstatc->GctFgColor(); 

PFont* f = graphicstatc->GctFontO; 
lineHt = ((IFont*) f)->GctLindHt(); 
tcxtgs->SctColors(fg, textgs->GctBgColorO); 

textgs->SctFont(0; 

textpainter->SetColors(*fg, output->GetBgColor()); 
tex tpainte^>S etFont( • f); 

gTaphicstate_t->Transfomi(float(left), float(top), textx, texty); 

Transformer t; 
t.Scale(magnifi magnif); 

LTranslate(left, top); 

•textpainterj = t; 
t.Postmultiply(graphicstate_t); 

•tcxtgs tat; 

) 


void State::SctTcxtGS (Graphic* gs. Painter* ouQ)ut) { 
PColor* fg a gs->GetFgColorO; 

PFont* f =sgs->GctFont(); 

lineHt = ((IFont*) f)->GctLineHtO: 

lcxtgs->SetColors(fg, tcxtgs->GetBgColor()); 

tcxtgs->SetFont(f); 

tcxtpainter->SctColors(*fg, output->GctBgColorO); 
textpaintcr->SetFont(*f); 
gs->TotaITransfonnation(*textpaintcr_t); 
Transformer* t *» gs->GetTransformcrO; 
if(t !«nil) { 

t->Transform(0.0.0.0. textx, texty); 

1 

I 

// Attach infomis us a view has attached itself to us. 

void State: :Attach (Interactor* i) { 

viewlist>>Appcnd(new IntcractorNodc(i)); 

} 


// Detach informs us a view has detached itself from us. 

void State: :Detach (Intcractor* i) { 
if (viewlist->Find(i)) { 
vicwlist*>DelctcCurO; 


// UpdatcViews infoims all attached views we have changed our state. 


void State:rUpdateViews () { 

for (viewlist->First(); !viewlist->AtEnd(); viewlist->Next()) { 
Intcractor* view = viewlist->GetCur()->GetIntcractoK); 
vicw->Updatc(); 

1 

} 


stateview5.h 

#i£fidef stateviews_h 
#definc stateviews^h 

#iiiclude <IntcrViews^tcractor.h> 

// Declare imported types. 

class Graphic; 
class State; 

// A StateView attaches itself to a State and displays some of the 
// State's information. 

class State^ew : public Interactor { 
public: 

StateView(State*, const char*); 

-StatcViewQ: 

protected: 

void ReconfigO; 

void Rcdraw(Coord» Coord, Coord, Coord); 
void ResizeO; 

State* state;// stores subject whose attribute view displays 
char* label;//stores view's text label 

Coord label_x, label^y;//stores position at which to display label 


// A Brush View displays the current brush. 

class Brush View : public StateView { 
public: 

Brush Vicw(State*); 

-Brush ViewQ: 

void UpdateQ; 

protected: 

void ReconfigO; 

void Rcdraw(Coord, Coord, Coord, Coord); 
void ResizeQ; 

Graphic* bmshindic;// displays line to demonstrate brush's effect 


); 


// A DrawingNameView displays the drawing's name. 

class DrawingNameView : public StateView { 
public: 

DrawingNamcView(Statc*); 
void UpdateQ; 
protected: 
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void ReconfigO; 
void ResizeQ; 

const char* GctDrawingName(State*); 


// A FontView displays the current font. 

class FontView: public StatcView { 
public: 

Font\^ew(Statc*); 

-FontVicwO; 

void UpdateO; 

protected: 

void RcconfigO; 

void Rcdraw(Coord» Coord, Coord, Coord); 
const char* GctPrintFontAndSize(Statc*); 

Painter* background;//draws background b^ind label 


}; 


// A GriddingView displays the current status of the grid's gridding. 

class GriddingView: public StatcView { 
public: 

GriddingViewfStatc*); 
void UpdateO: 
protected: 

const char* GetGriddingfState*); 


// A MagnifView displays the currmt magnification. 

class MagnifView : public StatcView ( 
public: 

MagnifVicw(Statc*, Intcraclor*); 
void UpdateO; 
protected: 
void RcsizcO; 

const char* GetMagnif(Statc*); 


// A ModifStatusView displays the current modification status. 

class ModifStatusView : public StatcView | 
public: 

ModifStatusVicw(Statc*); 
void UpdateO; 
protected: 

const diar* GetModifStatusfStatc*); 

I: 


// A PattcmN^cw displays the current pattern, 
class Pattern View: public StatcView { 


public: 

Pattern Vicw(State*); 

-Pattern View(); 

void UpdateO; 

protected: 

void ReconfigO; 

void Redraw(Coord, Coord» Coord, Coord); 

Painter* patindic;// fills rcct to deanonstrate pat's effect 


class Msg View : public State View { 
public: 

MsgVicw(State*); 
void UpdateO; 
protected: 
void ReconfigO; 
void RcsizeO; 

const char* GetMcssage(State*); 

}; 


#endif 


stoteviews.c 

#include "ipainLh" 

#include "istringJi" 

#include *'sllincs.h" 

#include "state.h" 

#inciudc "stateviews.h" 
tincludc <lnterViews/paintcr.h> 

#include <lnterViews^efspectivc.h> 

#include <LntcrViews/shapeJt> 

#include <InterViews/Std/stdioJi> 

// State View attaches itself to the State's list of views to update 
// and stores the State and text label. 

StateView;:StateView (State* s, const char* 1) ( 
s->Attach(this); 
state = s; 

label = 5trdup(l ? 1:""); 

I 


// Free storage allocated for the text label. 

StateView::-StatcVicw Q ( 
delete label; 

1 

// Reconfig pads the view's shape to accomodate its text label. 

// Basing padding on the font in use ensures the padding will change 

// proportionally with changes in the font's size. 

static const float WIDTHPAD = 1.0; // fraction of font->Width(EM) 

static const float HTPAD = 0.2; /Afraction of font->HcightO 

static const char* EM = "m"; // widest alphabetic character in any font 

void StateVicw::Rcconfig 0 { 

Interactor::Reconfig(); 

Font* font» output->GctFontO; 
int xpad = roimd(WIDTHPAD * font->Width(EM)); 
int ypad = round(HTPAD * font->Hcight()); 
shape->width = fonl->Width(labcl) + (2 * xpad); 
shape->hcight = font->Hcight() + (2 * ypad); 
shapc->Rigid(shapc“>width - xpad, 0,2 * JTpad, 0); 

I 

// Redraw displays the text label. 

void StatcView::Redraw (Coord 1, Coord b. Coord r. Coord t) ( 
oi^ut>>QearRect(canvas, 1, b, r, t); 
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ou^ut->Text(canvas, label, label_x, label_y); 

} 

// Resize centers the text label's position unless the label won't fit 
// on the canvas, in which case Resize left justifies the position, 

void StatcVicw::Rcsizc () { 

Font* font - output->GetFont(): 

labcl_x = max(0, (xmax - font->Width(]abel) + 1) / 2); 

label_y = (ymax - font->Height() + 1) / 2; 

) 

// BrushView creates a graphic to dwnonstrate the bmsh's effect on a 
// line. 

static const int PICXMAX = 28;// chosen to minimize scaling for canvas 
static const int PICYMAX — 18; 

BrushVicw::BrushView (State* s): (s, " N ") ( 

// store pattem in temporary variable 

IPattem* temp = statc->GetPattem(); 

// make pattem state to be the arrow pattem 

state->SetPattem(state->GetArrowPattcmO); 

// draw line with arrow pattem 

bmshindic = new t,incSelcction(0,0, PICXMAX, 0, state->GctGraphicGS()); 
// reset pattem 
state->SetPattcm(tcmp); 

bmshindic->SetTninsformeKniO; 

1 

// Free storage allocated for the graphic. 

BrushView:;-BmshView () | 
delete brushindic; 

1 

// Skew commcnts/code ratio to work around epp bug 

H Update updates the view if any of the brush, colors, or pattem 
// changes. 

void BrushView:;Updatc () { 

EBrush* brush =statc->GetBrushO; 

ICoIor* fgcolor = statc->GetFgColor(); 

IColor* bgcolor »statc->GetBgColorO; 

// set pattem of brush to be arrow pattem 

IPattem* pattem « sutc->GetArrowPattcm(); 
if (brashindic->GetBrush() != brush II 
brushindic->GetFgColorO 1= fgcolor 11 
bmshindiC'>GctBgColor() I* bgcolor II 
bmshindic->GctPattem() 1= pattem) 

I 

biushindic->SctBrush(brush); 
bmshindic->SctColors(fgcolor, bgcolor); 
bnishindic->SetPattem(pattcm); 

DrawQ; 

1 

1 

// Reconfig computes BmshView's shape and makes room for the VBordcr 
// between itself and the Pattem View. 

void BmshVicw::Rcconfig () { 

SlateView::Reconfig(); 
shape->width -■ 1; 



shape->RigidO; 

} 

// Redraw displays the text label if the brush's the none brush, else 
// it displays the graphic to demonstrate the brush's effect 

void BmshView::Redraw (Coord 1, Coord b, Coord r, Coord t) | 
EBrush* brush = (IBrush*) bmshindic->GetBrush(); 
if (brash->None()) { 

StatcView::Rcdraw(l, b, r, t); 

} else { 

output->QearRcct{canvas, 1, b, r, t); 
bmshindic->Draw(canvas); 

I 

} 


// Resize scales the graphic to fit the canvas' size. 

voidBnishView::Resizc 0 { 

StatcView::ResizeO; 

float xmag = float(xinax) /HCXMAX; 

float hy = float(ymax) /2; 

brushindic->SetTransformcKnil); 

brushindic->Scale(xmag, 1.); 

brushindic“>Translatc(0., hy); 

1 

// DrawingNameView just passes the drawing’s name to State View. 

DrawingNameView:JDrawingNameVicw (State* s) : (s, GetDrawingNamc(s)) { 


// Update updates the view of the drawing's name. 

void DrawingNameView::Updatc () { 

const char* drawingname * GctDrawingName(statc); 
if (strcmp(drawingnamc, label)!- 0) { 
delete label; 

label ss strdup(drawingname); 

ResizeO; 

DrawO: 

1 

I 


// Rcconfig gives DrawingNameView's shape some stretchability to get 
// more space if the HBox has room for it to stretch- 

void DrawingNamcView::Rcconfig () ( 

StateView::Rcconfig(); 
shape’>hstretch » hfll; 

I 


// Resize left justifies the text label's position. 

void DrawingNameView::Resize 0 { 

Font* font = output->GetFontO; 
labc!_x = 0; 

labcl_y = (ymax - font->Height() + 1) / 2; 

} 


// GetDrawingName returns the drawing's name or a default label if it 
// has no name. 

const char* DrawingNamcView::GetDrawingName (State* state) | 
const char* drawingname = statc->GetDrawingName(); 
return drawingname ? drawingname: "[unnamed drawing]"; 

} 


// Font View passes the font's print name and size to StateMew for its 
// label. 

FontView: J-ontView (State* s): (s, GctPrintFontAndSize(s)) { 
background ^ nil; 

I 

// Free storage allocated for the background painter. 
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FontVicwrr—FontView () { 
Unrcf(background); 

) 


// Update updates the view if the label or the current color changes. 

void FontView::Update () { 
const char* name * GetPrintFontAndSize(statc); 

Color* fgcolor = *state->GetFgColor(); 
if (strcmp(name, label) 1^: 0) { 
delete label; 
label ^ strdup(name); 

output->Set(i!olors(fgcolor,output->GetBgColor()); 

ResizeO; 

DrawQ: 

} else if (output->GetFgColorO !« fgcolor) { 

output->SetColore(fgcolor,output->GetBgColorO); 

DrawO; 

I 

} 


// Reconfig gives FontView's shape some strctchability to get more 
// space if the HBox has room for it to stretch, creates a new painter 
// to draw a gray background behind the label, and r^laces ou^ut 
// with a new painter to use a differoit color. 

void FontVicw::Reconfig 0 I 
StatcView::Reconfig(); 
shape->hstretch *= hfil; 

if (background « nil) { 
background = new Painter(output); 
background->Refcr«ice(); 
backgTound->SetPattem(gray); 


Color* fgcolor* *state*>GctFgColoiO; 

Painter* copy * new Painter(output); 
copy->Refefence(); 

Unref(output); 
output * copy; 

output->Set(jolors(fgcolor, output->GctBgColorO); 
output->FillBg(false); 

) 


// Redraw displays the graphic label over a gray background to make 
// the label visible even if it uses the white color. 

void FontView::Redraw (Coord I, Coord b, Coord r. Coord t) { 
background->Fil]Rect(canvas, I. b, r. t); 
output->Tcxt(canvas, label, labcl_x, label_y); 

} 


II GetPrintFontAndSize returns the font's print name and size. 

const char* FontVicw;:GctPrintFontAndSizc (State* state) { 
IFont* f * state->GctFont(); 
return f->GetPrintFontAndSizeO; 

I 


// GriddingView passes the grid's gridding on/oCf status to StateView. 
GriddingView::GriddingView (State* s): (s, GctGridding(s)) { 

I 

// Update updates the view of the grid's gridding on/off status. 

void GriddingVicw::Updatc 0 { 
const char* gridding * GctGridding(statc); 
if (sircmp(gridding, label) 1* 0) { 
delete label; 

label * strdup(gridding); 

DrawO; 

I 

1 
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// GetGridding returns the status of the grid's gridding as a text 
// string. 

const char* GriddingView::GetGridding (State* state) { 
const char^ gravity = nil; 
if (state->GetGridGravity()) { 
gravity = "gridding on"; 

} else { 
gravity =*" 

1 

return gravity; 

} 

// MagnifView attaches itself to the Drawing View’s perspective to get 
// itself updated whenever the magnification changes. 

MagnifViewrrMagnifView (State* s. Interactor* dwgview): (s, GetMagnif(s)) { 
dwgview->GetPerepcctivc()‘>Attach(this); 

1 


// Update updates the view of the current magnification. 

void MagnifView::Update () { 
const char* magnif = GctMagnif(statc); 
if (strcmp(magnif, label) !* 0) { 
delete label; 
label = strdup(magniO; 

ResizeQ; 

DrawQ; 

1 

1 

// Resize ri^t justifies the text label's position. 

void MagnifView::Rcsi 2 e Q { 

Font* font = output->GetFont(); 
labcLx = xmax - font->Width(labeI) + 1; 
label_y * (ymax - font->Hcight() + 1) / 2; 

I 

// GetMa^if returns the drawing's magnification as a text string. 

const char* MagnirView::GctMagnif (State* state) { 
static char mag[20]; 

float magnif = state->GetMagnifO; 
sprintf(mag, " mag %.10gx ", magniO; 
return mag; 

) 

// ModifStatusVfiew just passes the modification status to StateView. 

ModifStatusView::ModifStatusVicw (State* s): (s, GctModifStatus(s)) { 

} 


// Update updates the view of the current modification status. 

void ModifStatusView::Updatc 0 I 
const char* modifstatus «= GetModifStatus(state); 
if (strcmp(modifstatus, label) !* 0) | 
delete label; 

label s strdup(modifstatus); 

DrawQ: 

} 

} 

// GetModifStatus returns the drawing's modification status. 

const char* ModifStatusView:;GetModifStatus (Stale* state) { 
switch (state->GetModifStatus()) ( 
case Readonly: 
return 

case Unmodified: 
return " "; 
default: 
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return 

1 

} 

// PattemView passes its none pattern label to StateView. 

PatternView::PattcmView (State* s): (s, " N ”) { 
patindic = nil; 

) 

H Free storage allocated for the fillrect painter. 

PatternView::-'PattemVicw 0 { 

Unrcf(patindic); 

1 


// Update updates the view if any of the colors or pattern changes. 

void PatternView::Updatc 0 I 
Color* fgcolor= •statc->GetFgColoi<); 

Color* bgcolor = *statc->GctBgColorO; 

Pattern* pattern - •state->GetPattcmO: 
if (patindic->GetFgColor<) 1= fgcolor II 
patindic->GetBgColorO 1= bgcolor II 
patindic->GetPattem() 1= pattern) 

{ 

patindic->SetColors(fgcolor, bgcolor); 
patindic->SctPattem(pattem); 

DrawQ; 

I 

} 


// Reconiig creates the pattern indicator's painter. 

void Patt«nView::Rcconfig 0 { 

StateView: iRcconfigO; 
shape'>RigidO; 
if (patindic «« nil) { 

Coloi* fgcolor = •state->GetFgColor(); 

Color* bgcolor« •state->GetBgColoK); 

Pattern* pattern = *sUte->GetPattem(); 
patindic new Paintcr(output); 
patindic->Rcfcrence(); 
patindic->SetColors(fgcolor, bgcolor); 
patindic->SetPattcm(pattem); 

I 

) 


// Redraw displays the text label if the pattern's the none pattern, 
// else it displays the fillrect to demonstrate the pattern's effect 

void PatternVicw;:Rcdraw (Coord 1, Coord b. Coord r, Coord t) { 
if (state->GetPattcm()->None()) { 

StatcView::RedrawO, b, r, t); 

} else { 

patindic->FillRect(canvas, 1, b, r, t); 

I 

I 


MsgView::MsgVicw(State* s): (s,GctMessage(s)) { 

I 


void MsgView::Updatc() { 

const char* msg * GetMessagc(state); 

if (strcmp(msg4abcl) 1= 0) { 

delete label; 

label« strdup(msg); 

ResizeQ; 

DrawQ: 

} 

I 


void MsgVicw::Reconfig() { 
StaieVicw;:ReconfigO; 
shape->hsiretch * hfil; 

I 


void MsgVicw::Rcsize() { 

Font* font = ou^ut->GctFontO; 
labcl_x * 0; 

label_y = (ymax - font->Hcight() + 1) / 2; 

I 


const char* MsgView:;GetMessage(Statc* state) { 
const char* msg = state->GetMessage(); 
return msg ? msg : " 

) 


textedith 


#ifiidcf tcxtcdit_h 
#dcfinc tcxtcdit_h 

#include <IntcrVicws/dc£5Ji> 

// Declare imported types. 

class Canvas; 
class Event; 
class Painter, 
class TextDisplay; 
class TextBuffcr; 

// A TextEdit edits an array of lines of text 

class TextEdit { 
public: 

TextEdit(const char* = 0, int * 0); 

-TextEditQ; 

const char* GctText(int&): 
char •GetStringO: 

void RedrawfPaintcr*, Canvas*, int lineHt, boolean redraw); 
void Gfasp(Evcnt&); 
boolean £diting(Event&); 

void Bounds(Coord& xmin, Coord& ymin, Coord& xmax, Coord& ymax); 
protected: 

boolean HandleKey(char); 

void InsertCharactcrfchar); 
void DcletcCharacteKint); 

void InscrtTcxtfconst char*, int); 
void DclcteTcxt(int); 

void DclctcRcstOfLineO; 
void DeletcSelectionQ; 

void BackwardCharactcr(inl = 1), ForwardCharactcr(int * 1); 
void BackwardLinefint * 1), ForwardLinefint» 1); 

void BeginningOflineO, EndOfLinc(); 

void Selectfint dot); 

void SelectMorcfint marie); 

void SelectLineO; 

void SdectWordO: 

void Sclcct(int dot, int mark); 

boolean Contains(Coord, Coord); 
int LocatefCoord, Coord); 

protected: 

boolean selecting; 
int dot, maik; 

TextBuffCT* text; 

TextDisplay* display, 
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Painter* output; 


I; 


#cndif 


texteditc 

#include "textedith" 

#iiictude "istring.h" 

#include <InterViews/canvas.h> 

#includc <lnterVicws/evcnt.h> 

#include <InterVicws/font.h> 

#include <IntcrVicws^ainter.h> 
finclude -dnterVicwsAextbuffcrJi> 

#include <InterViews/tcxtdisplay.h> 

#include <InterViewsAransformer.h> 
finclude «d5string.h> 
finclude <ctype.h> 

// Beware: only one instance of TextEdit can exist at any time! 

static const int SBUFSIZE = 10000; 
static char sbuf[SBUFSIZE]; 

TcxtEdit::TextEdit (const char* sample, int samplen) ( 
selecting » false; 
dot* mark *=0; 

text = new TextBuffer(sbuf, 0, SBUFSIZE); 
display = new TextDisplay(true); 
output* nil; 


text->lnseit(0, sample, samplen); 
int lines * text->Height0; 
for (int i * 0; i < lines; ++i) { 
int bol = text->LineIndcx(i); 
int col = text->EndOfLine(bol); 
display->RcplaceText(i, text->Tcxt(bol, col), eol • bol); 

I 

I 

TcxtEdit:;-TextEdit () { 
delete text; 
delete display; 

) 

const char* TextEdit: :GetText (int& size) ( 
size * text->Length(); 
return text->Text(); 

) 


char *TcxtEdit::GctStringO I 

int len; 

const char *slr * GetTcxtOcn); 
char *rval *ncw char[len + 1]; 
stmcpy(rval,str,lcn); 
rval[lcn] =0; 
return rval; 

I 


void TextEdit;:Redraw ( 

Painter* ou^ut. Canvas* canvas, int lineHt, boolean redraw 

){ 

TextEdit::output * output; 
display->Draw(ou^ut, canvas); 

display>>LineHeight(lineHt); 

Coord 1 = 0; 

Coord b * 0 - dispIay->HcightO; 

Coord r * 0 + dispIay->Width(): 

Coord t * 0; 

display'>Resize(l, b, r, t); 
if (redraw) { 

dispIay‘>Redraw(l, b, r, t); 


} 

} 

void TcxtEdit::Grasp (Evcnt& e) ( 

Sclcct(Locate(e.x, c.y)); 
selecting *= trae; 
e.evcntType =* MotionEvent; 

} 

boolean TextEditiJEditing (Evcnt& e) { 
boolean editing trae; 

if (c.cvaitTypc = KcyEvrait && e.len > 0) { 
editing = HandleKcy(eJceystring[0]); 

} else if (e.eventTypc ** MotionEv«it && selecting) | 
SclectMorc(Locatc(e.x, e.y)); 

} else if {e.eventTypc *= DownEvent) { 
if (c.shift) I 

SelectMorc(Locate(e.x, e.y)); 
selecting »trae; 

} else if (Contains(e.x, e.y)) { 

Sclect(Locatc(c.x» c.y)); 
selecting = trae; 

I else { 

editing = false; 

1 

} else if (e.eventTypc »= UpEvent) { 
selecting = false; 

I 

if (lediting) { 

Sclect(dot); 

display->CaretSiyle(NoCarct); 

} 

return editing: 

I 


void TextEdii::Bounds (Coord& xmin, Coord& ymin, Coord& xmax, Coord& ymax) { 
Transformer* t = ouq)ut->GetTransformerO; 

disptay'>6ounds(xmin, ymin, xmax, ymax); 
if (t != nil) ( 

t->TransfonnRcct(xmin, ymin, xmax, ymax); 


boolean TcxtEdit;dIandlcKcy (char c) { 

boolean editing »true; 

switch (c) ( 

case\D01V*^A */: BeginningOfLine(); break; 
case V)05' /* ^E */: EndOfLincO; break; 
case \006'/* */: ForwardCharactcr(l); break; 

case V)02'/• ^B •/: BackwardCharactcr(l): break; 
casc\016'/*^N •/: ForwardLinc(l); break; 
case V)20'/• */: BackwardLinc(l); break; 

case V) 13'/* •/: DeletcRcstOfLinc(); break; 

case \304'/*^D */: DclctcCharactcr(l); break; 
case\0107*^H */: DcIeteCharacter(-l); break: 
case M 77'/* DEL*/: DclctcCharactcr(-l); break; 
case \0! 1 ’ /* TAB */: InscrtCharacterC'); break; 
case V)27' /* */: SclcclWord(); break; 

case V)25' /* */; SelcctLinc(); break; 

case V)15'/* RET */: InsertCharactcr(\i'): break; 
case V)33' /* ESC */: editing = false; break; 
default: 

if (!iscntrl(c)) { 

InscrtCha racterf c); 

I 

l^'eak; 

I 

return editing; 

I 


void TcxtEdit:dnsertCharacter (char c) { 
Del^eSelectionO; 


316 



InsertText(&c, 1); 

} 

void TextEdit::DclctcCharactcr (int count) { 
if (dot != maik) | 

DelctcSclcctionO; 

} else { 

DeleteTcxt(count); 

) 


void TextEdit::InsertText (const char* s, int count) { 
count * tcxt->Inscrt(dot, s, count); 
int sline =* tcxt->LineNumbcr(dot); 
int fline = tcxt->LineNumber(dot + count); 
if (sline = fline) { 

int offset = tcxt->LineOfTset(dot); 
display->InsertText(sline, offset, text->Text(dot), count); 
} else { 

display->InsertLinesAfter(sline, fline-sline); 
for (int i * sline; i <=* fline; ++i) { 
int bol = text->BeginningOfLine(text->LineIndex(i)); 
int col = text“>EndOfLinc(bol); 
display->ReplaccText(i, tcxt->Text(bol, col), eol-bol); 

I 

I 

Select(dot -f count); 

I 


void TextEdit::DeleteText (int count) { 
int d = dot; 
int c = count; 
while(c>0) { 
d = text->NcxtQiaracieKd); 

—c; 

} 

while (c < 0) { 

dot * tcxt->Previous(rharactcr(dot); 

++c; 

I 

count s= d • dot; 

int sline * text->LineNumber(dot); 
int fline «text->LineNumber(d); 
text->Deletc(dot, count); 
if (sline ~ fline) { 
int offset ss tcxt->LincOffsct(dot); 
display->DeleteText(sline, offset, count); 

} else I 

int bol = lext->BcginningOfLinc(dot); 
int col = tcxt->EndOfLine(dot); 
display->DclctcLinesAfteKslinc, fline-sline); 
display->RcplaccTcxt(slinc, tcxt->TcxtCbol, col), eol-bol); 

1 

Sclect(dot); 

) 


void Text£dit::DeleteRestOfLine 0 { 
if (dot »= mark) { 

int bol =tcxt->BcginningOfLinc(dot); 
if (dot == bol) ( 

Select(dot, text->BeginningOfNcxtLinc(dot)); 
) else { 

ScIect(dot, tcxt->EndOfLinc(dot)); 

I 

} 

Del eteS el ection (); 

1 

void TcxtEdit::DelcteSclcction () { 
if (dot I*: mark) { 

E)clctcTcxt(mark - dot); 


I 

voidTcxtEdit::BcgmningOfLine() { 
if (dot jemark) ( 


Select(min(maric, dot)); 

} else { 

Select(text->BeginningOfLine(dot)); 


I 

} 

void TcxtEdit::EndOfLine 0 I 
if (dot 1= mark) { 

Select(max(mark, dot)); 

} else { 

Sclcct(text->EndOfLine(dot)); 


} 

void TextEdit::ForwardCharactcr (int count) { 
if (dot != mark) ( 

Select(max(mark, dot)); 

I else ( 
int d = dot; 
while (count > 0) { 

d = tcxt->NcxtCharacler(d); 

-count; 


Sclect(d); 

1 

} 


void TextEdiliiBackwardCharacter (int count) { 
if (dot !a mark) { 

Select(min(mark, dot)); 

) else { 
int d = dot; 
while (count > 0) { 

d = text->PrcviousCharactcr(d); 

—count; 

I 

Select(d); 


void TextEditii^orwardLine (int count) { 
if (dot !«maik) { 

Select(max(mark« dot)); 

} else ( 
int d B dot; 
while (count > 0) { 

d »tcxt->BcgmningOfNextLine(d); 
-count; 

I 

Sclcct(d); 


1 

void TextEdit::BackwardLine (int count) { 
if (dot!» mark) { 

Select(min(mark, dot)); 

1 else ( 
int d B dot; 
while (count > 0) { 

d »tcxt->BcginningOfLinc(text->EndOfPrcviousLine(d)); 
—count; 


Sclect(d); 

1 

I 

void TcxtEdit::Sclcct (int d) ( 
Selected, d); 

) 


void TextEdit::SclectMorc (int m) { 

Sclect(dot, m); 

1 

void TextEdit:;SclectLine () { 

Sclcct(tcxt->BcginmngOfLine(dol),lcxt->BcginningOfNextLinc(dot)); 
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} 


void TextEdit::SclcctWord () { 
int left« min(mai1c, dot); 
int right« maxfmark, dot); 

Select(text->Beg;inningOfWotxl{tcxt->PrcviousCharactcr(left)), right); 

} 

void TextEdit::Select (int d» int m) { 
int oldl s: niin(dot, marie); 
int oldr» max(dot, marie); 
int newl * min(d, m); 
int newr = max(d, m); 
if (oldl — oldr && newl !=*= newr) { 
display->CaretStyle(NoCarct): 

} 

if (newr < oldl II newl > oldr) { 
if (oldr > oldl) | 

display->RemoveStyIe( 

text->LineNumber(oldl),tcxt->LineOffset(oldl), 

tcxt->LineNumber(oldr-l),tcxt->LineOffset(oldr-l), 

Reversed 

); 

I 

if (newr > newl) { 
display->AddSty]e( 

tcxt->LineNumber(newl), tcxt->LineOffset(newl), 
text->IineNumbcr(newr-l), tcxt->LineOffset(newr-l), 
Reversed 

); 


I else { 

if (newl < oldl) { 
display*>AddStyle( 

tcxt->LineNumber(newl), text->LineOff8et(newl), 

tcxt->LincNumbcr(oldl-l),text->LincO£fset(oldl-l), 

Reversed 

): 

} else if (newl > old!) ( 
display*>RemoveStyle( 

text->UneNumber(oldl), tcxt->LineOffsei(oldl), 
tcxt*>LineNumber(newl-l), text->lineOffset(newl-l), 
Reversed 

): 

I 

if (newr > oldr) ( 
display->AddStyle( 

text->LineNumber(oldr), tcxt->LineOffset(oldr), 
tcxl->LineNQmber(newr-1), text->LincOfrsct(newr-1), 
Reversed 

); 

} else if (newr < oldr) | 
display->RcmoveStyle( 

text->LineNumber(newr), tcxt->LineOffsct(ncwr), 

text->LineNumber(oldr-l)»tcxt->LincOfTsct(oldr-l), 

Reversed 

); 

I 

I 

if (old!!» oldr && newl newr) { 
display->CarctStyle(BarCaret); 

} 

if (newl newr) { 

display->Carct(text->LincNumber(ncwl),tcxt->LincOfTsct(newl)); 

I 

dot B d; 
mark^^m; 

I 

boolean TextEditrrContains (Coord x. Coord y) { 

Transformer tr(output->GctTransformerO); 
tr.lnvTransform(x, y); 
int line » display->LineNumber(y); 
int index * display->LineIndex(lme, x); 

return 
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X >= display->Lcft(Iinc, text‘>BcginningOfLine(index)) && 
X <= display->Right(Hnc, tcxt->EndOfLine(index)) && 
y >= display->BaseGinc) && 
y <« display->TopGme); 


int TextEdit::Locatc (Coord x, Coord y) { 
Transformer tr(outpirt->GctTransformeK)); 
tr.InvTransform(x, y); 
int line *= display->LineNuLmber(y); 
int index s display->Linelndex(line, x); 
int 1S5 text->LincIndcx(linc); 
inti =0; 

while (i < index) { 

1 = tcxt->NextCharactcr(l); 
i+=l; 

} 

return 1; 

} 


tool&h 

#ifndef tools_h 
#define tools_h 

#include "paneLh" 

// Declare imported types. 

class Editor; 
class MapKey; 

// A Tools displays several drawing tools to choose from. 

class Tools : public Panel { 
public: 

Tools(Editor*, MapKey*); 
void Handle(Event&); 
protected: 

void Init(Editor*, MapKey*); 
void ReconfigOl 


#cndif 


tool$.c 


#include ‘'editorh" 

#include "kcystrokes.h" 

#includc "mapkcy.h’' 

#inciude "tools.h" 

#include •4nterViews/box.h> 

#include <IntcrViews/ev«it.h> 

#include <InterViews^aintcrJi> 

#include <IntcrViews/shape.h> 

#includc <lnterVicws/Std/slringJi> 

// An IdrawTool enters itself into the MapKey so Idraw can send 
// a KeyEvent to the right IdrawTool. 

class IdrawTool: public Panelltem | 
public: 

IdrawTool(Pancl*, const char*, char. Editor*, MapKey*); 
protected: 

Editor* editor;// handles drawing and editing operations 

}; 



// IdrawTool stores the editor pointer and alters itself and its 
// associated character into the MapKey. 

IdrawToolrJdrawTool (Panel* p, const char* n, char c, Editor* e, 
MapKcy* mapkey): Panelltem(p, n, mapkey->ToStr(c), c, c) 

1 

editor ** e; 

niapkey“>Enter(this, c); 

I 


// A SelectTooI selects a set of Selections. 


class SelectTooI: public IdrawTool ( 
public: 

SelectTooI (Panel* p, Editor* c, MapKey* mk) 

: IdrawTooKp, "Select", SELECTCHAR, e, mk) {} 
void SetMessageO 
{ 

strq)y(msg, "pick object with LMB or hold down button to draw rectangle"); 

strcat(msg, " around more than 1 object"); 

cditor->ResetMessage(msg); 

I 

void Perform (Event& e) { 
editor->HandleSelect(e); 

) 

}; 


// A MovcTool moves a set of Selections. 

class MoveTool: public IdrawTool { 
public: 

MoveTool (Panel* p, Editor* e, MapKey* mk) 

; IdrawTool(p, "Move", MOVECHAR, c, mk) 11 
void SetMessageO 
1 

strcpy(msg, "pick object with LMB"); 
cditor“>ResetMcssage(msg): 

} 

void Perform (Evait& e) 

1 

cditor->HandleMove(e); 

1 

1 ; 


// A DecomposeTool will open new graphic editor for lower level of DFD 

class DecomposeTool: public IdrawTool { 
public: 

DecomposeTool (Panel* p. Editor* c, MapKey* mk) 

; IdrawTool(p, "Implcmcnt/Decomposc", DECOMPOSECHAR, c, mk) |} 

void SetMessageO I 

strcpy(msg, 

"pick operator with LMB"); 
editor->ResetMessage(msg); 

) 

void Perform (Evait& e) { 
editor->HandlcDccompose(e); 

1 

1 ; 


// A CommentTool draws some text 

class CommentTool: public IdrawTool { 
public: 

CommentTool (Panel* p. Editor* c, MapKey* mk) 

: IdrawTool(p, 'Title/Comment", COMMENTCHAR, e, mk) {| 
void SetMessageO | 
strcpy(msg. 
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"click outside of objects to add text"); 
editor->RcsetMessage(msg); 

} 

void Perform (Evait& e) { 
editor->HandleText(e); 

1 

}; 


// A LabelToo! draws some text for one of the componrats of the DFD 

class LabelTool: public IdrawTool ( 
public: 

LabelToo! (Panel* p, Editor* c, MapKey* mk) 

: IdrawTooi(p, "Label", LABELCHAR, e, mk) {) 
void SetMessageO { 

strcpy(msg,"pick object with LMB, add text, then click outside objects"); 
editor->ResetMessage(msg); 

I 

void Perform (Event& e) { 
cditor->HandlcLabcl(c); 

} 

}; 


// A TriggcrlfTool draws some text for one of the con^jonents of the DFD 

class IfTool: public IdrawTool { 
public: 

IfTool (Panel* p, Editor* c, MapKey* mk) 

; IdrawTool(^, 'Trigger If, IFCHAR, e, mk) {} 
void SetMessageO { 

strcpy(msg,"pick object with LMB, add text, then click outside objects"); 
cditor->ResetMcssage(msg); 

1 

void Perform (Evcnt& e) { 
cditor->HandleIf(e); 

} 

); 


// A TriggetBYALLTool draws some text for one of the components of the DFD 

class By_AllTool: public IdrawTool { 
public: 

By_AllTool (Panel* p. Editor* e, MapKey* mk) 

: IdrawTooKp, 'Trigger By AH". BYALLCHAR, e, mk) {) 
void SetMessageO { 

strcpy(msg,"pick object with LMB. add text, then click outside objects"); 
cditor->RcsetMcssage(msg); 

1 

void Perform (Event& e) { 

//editor->HandlcBy_AIl(e); 

I 


// A TriggcrfiY_SOMETool draws some text for one of the componOTts of the DFD 

class By_SomeTool: public IdrawTool { 
public: 

By_SomeTool (Panel* p, Editor* c, MapKey* mk) 

: IdrawTool(p, 'Trigger By Some", BYSOMECTIAR, c, mk) {| 
void SetMessageO { 

strcpy(msg,"pick object with LMB, add text, then click outside objects"); 
editor->ResetMessage(msg); 

I 

void Perform (Evcnt& c) { 

// editor->HandleBy_Some(e); 

} 


// A HourTool adds the maximu execution of the operator to the drawing 

class HourTool: public IdrawTool 

{ 

public: 

HourTool (Panel* p, Editor* e, MapKey* mk) 
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: IdrawTooKp, "HOUR " . HOURCHAR, c. mk) {) 
void SctMessageO 
{ 

strcpy(msg, 

"pick operator with LMB, add text, then click outside object"); 
edi to r->ResetMcssagc(msg); 

} 

void Perform(Ev«it& e) 

I 

editor->HandleMET(c," hours"); 

} 


// A HourLTool adds the maximu execution of the STREAM to the drawing 
class HourLTool: public IdrawTool 

I 

public: 

HourLTool (Panel* p. Editor* e, MapKey* mk) 

; IdrawTool(p, "HOUR " , LHOURCHAR, e, mk) {} 
void SetMessageO 
i 

strcpy(msg, 

"pick operator with LMB, add text, then click outside object"); 
editor->ResetMessage(msg); 

I 

void Perform(Event& e) 

I 

cdito^>HandlcLatcncy(e," hours"); 


); 


// A MinutcTool adds the maximu execution of the operator to the drawing 
class MinuteTool: public IdrawTool 

I 

public: 

MinuteTool (Panel* p. Editor* e, MapKcy* mk) 

: IdrawTooI(p, "Minute " , MINUTECHAR, e, mk) (} 
void SetMessageO 
I 

strcpy(msg, 

"pick operator with LMB, add text, then click outside object"); 
editor‘>ResetMessagc(msg); 

1 

void Pcrfonn(Evcnt& e) 

I 

cditor->HandlcMET(e," min"); 

I 


// A MinuteLTool adds the maximu execution of the STREAM to the drawing 
class MinuteLTool: public IdrawTool 

I 

public: 

MinuteLTool (Panel* p. Editor* c, MapKey* mk) 

: IdrawTool(p, "Minute " JAGNUTECHAR, c, mk) |} 
void SetMessageO 
I 

strcpy(msg, 

"pick operator with LMB, add text, then click outside object"); 
cditor->ResetMcssagc(msg); 

I 

void Perform(Evait& c) 

I 

cditor->HandleLatcncy(e," min"); 

I 


// A SecTool adds the maximu execution of the operator to the drawing 
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class SecToo!: public IdrawTool 

{ 

public: 

SecTool (Panel* p, Editor* c, MapKey* mk) 

: IdrawTool(p, "Second " , SECONDCHAR, c, mk) {} 
void SetMessageO 
I 

strcpy(msg, 

"pick operator with LMB, add text, then click outside object"); 
editor->ResetMessagc(msg); 

I 

void Pcrfonn(Evcnt& c) 

I 

editor->HandleMET(e," sec"); 

I 

}; 


// A SecLTooI adds the maximu execution of the STREAM to the drawing 

class SecLTooI; public IdrawTool 

{ 

public: 

SecLTooI (Panel* p, Editor* e, MapKey* mk) 

: IdrawTool(p, "Second " , LSECONDCHAR, c, mk) (| 
void SetMessageO 
1 

strcpy(msg, 

"pick operator with LMB, add text, then click outside object"); 
editor->ResetMessage(msg); 

} 

void Pcrform(Event& e) 

{ 

cditor->HandleLataicy(c," sec"); 

I 


// A MilSecTool adds the maximu execution of the operator to the drawing 

class MilSecTool: public IdrawTool 

I 

public: 

MilSecTool (Panel* p, Editor* c, MapKey* mk) 

: IdrawTool(p, "MilliSccond ", MBLSECCHAR, c, mk) {J 
void SetMessageO 
{ 

strcpy(msg, 

"pick operator with LMB, add text, then click outside object"); 
cditor->ResetMessage(msg); 

I 

void Pcrfonm(Evcnt& c) 

I 

editoi^>HandlcMET(e," ms"); 


I: 


// A MilSecLTool adds the maximu execution of the STREAM to the drawing 
class MilSecLTool: public IdrawTool 

I 

public: 

MilSecLTool (Panel* p, Editor* c, MapKey* mk) 

: IdrawTool(p, "MilliSecond " , LMELSECCHAR, c, mk) {) 
void SetMessageO 
{ 

strcpy(msg, 

"pick operator with LMB, add text, then click outside object"); 
cditor“>RcsctMcssagc(msg); 

I 

void Pcrform(Eva)t& e) 

{ 

editor->HandleLatency(e," ms"); 

I 
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); 


// A MicroSecTool adds the maximu execution of the operator to the drawing 
class MicroSecTool : public IdrawTool 

i 

public; 

MicroSecTool (Panel* p. Editor* c, MapKcy* mk) 

: IdrawTool(p, "us ", MICSECCHAR, e, mk) {} 
void SetMessageO 
{ 

strcpy(msg, 

"pick operator with LMB, add text, thra click outside object*’); 
editor->RcsctMessage(msg); 

I 

void Pcrform(Ev«it& e) 

I 

editor->HandleMET(e," microsec"); 

) 


// A MicroSecLTool adds the maximu execution of the STREAM to the drawing 

class KEcroSecLTool: public IdrawTool 

{ 

public: 

NficroSecLTool (Panel* p. Editor* e, MapKey* mk) 

: IdrawTool(p, "us ". L^CSECCHAR, c, mk) |} 
void SetMessageO 
I 

strep y(msg, 

"pick operator with LMB, add text, that click outside object"); 
editor->ResetMessage(msg): 

1 

void Pcrform(Evcnt& e) 

I 

edito^>HandleLatency(e," microsec"); 

I 


// A BSplineTool draws an open B-spline. 

class BSplineTool; public IdrawTool ( 
public: 

BSplineTool (Panel* p. Editor* e, MapKey* mk) 

: IdrawTool(p, BSPLINECHAR, c, mk) (| 
void SetMessageO { 
strcpy(msg, 

"click LMB at each spot to place segmoit of spline"); 
editor->ResetMessag^msg); 

) 

void Perform (Event& e) { 
editor->HandlcBSpline(e); 

I 

protected: 

void Redraw (Coord 1, Coord b, Coord r. Coord t) ( 
IdrawTool::Rcdraw(l, b, r, t); 
const int N«»4; 

Coord x[N]; 

Coord y[N]; 

x[0] = offx + side * 1/5; 

y[0] = offy + side * 4/5; 

x[I] « offx + side * 1/2; 

y[l] w offy + side * 4/5; 

x[2] - offx + side * 1/2; 

y[2] = offy + side * 1/5; 

x[3] s= offx + side • 4/5; 

y[3] = offy + side * 1/5; 

output->BSpline(canvas, x, y, N); 

) 

I: 


// An EllipseTool draws an ellipse. 
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class EllipseTool: public IdrawTool { 
public: 

EllipseTool (Panel* p, Editor* c, MapKey* mk) 

: IdrawTool^, ELLIPSECHAR, c» ni) { | 
void SetMessage() { 
strcpy(msg, 

"click with LMB to draw operator centered at that point"); 
cditor->RcsetMcssagc(msg); 

) 

void Perform (Event& e) { 
editor->HandleEUipse(e); 

} 

protected: 

void Redraw (Coord 1, Coord b. Coord r, Coord t) { 
IdrawTooI::Rcdraw(I, b, r, t); 

Coord xO = offx + side * 1/2; 

Coond yO = offy + side * 1/2; 

Coord xradius = side * 1/3 + side * 1/16; 

Coord yradius « side * 1/3 - side * 1/16; 
output->Ellipse(canvas, xO, yO, xradius, yradius); 

1 

1 ; 


// A RectTool draws a rectangle. 

class RectTool: public IdrawTool { 
public: 

RectTool (Panel* p, Editor* c, MapKcy* mk) 

: IdrawTool(p, RECTCHAR, c, mk) {| 
void SetMessageO ( 
strcpy(msg, 

"click with LMB to draw terminator centered at that point"); 
edito^>ResctMessage(msg); 

1 

void Perform (Evcnt& e) | 
cditor->HandleRect(e); 

} 

protected: 

void Redraw (Coord 1, Coord b, Coord r, Coord t) { 
IdrawTool::Rcdraw(l, b, r. t); 

Coord xO = offx + side • 1/5; 

Coord yO - offy + side * 1/5; 

Coord xl « offx + side • 4/5; 

Coord yl = offy + side * 4/5; 
output->Rect(canvas, xO, yO, xl, yl); 

I 


//Tools creates its tools. 

Tools: :Tools (Editor* c, MapKey* mk) { 
Init(e, mk); 

I 


// Handle tells one of the tools to perform its function if a 
// DownEvcnt occurs. 

void Tools::HandIc (Evcnt& c) { 
switdi (e.cventType) ( 
case DownEvent: 
switch (e.button) { 
case LEFTMOUSE; 

PcrformCurTcntFunction(e); 

break; 

caseMIDDLEMOUSE: 

PcrformTemporaryFunction(e, MOVECHAR); 
break; 

case RIGHTMOUSE: 

PerformTemporaryFunction(e, SELECTCHAR); 
break; 
default: 
break; 

I 


default: 





break; 

) 

} 

// Init creates the tools, lays them together, and inserts th«n. 

void Tools::Init (Editor* c, MapKey* mk) { 

Panelltem* first = new SelectTool(this, e, mk); 

VBox* tools = new VBox; 
tools->Insert(first); 

//tools -> Insert(new PropertyTool(this, e, mk )); 
tools->Insert(ncw MoveTool(this, c, mk)); 

// tools->Insert(new ModifyTool(this, e, mk)); 
//tools->Insert(new SpecifyTooI(this, e, mk)); 

tools->Insert(new DecomposeTool(this, e, mk)); 
tools->Inseit(new CommcntTool(this, c, mk)); 

Enter(ncw HourTool (this, c, mk), HOURCHAR ); 
Enter(new MinuteTool (this, e, mk), MINUTECHAR); 
Entcr(new SccTool (this, e, mk), SECONDCHAR); 
Enter(ncw MilSecTool (this, e, mk), MILSECCHAR); 
Enter(new MicroSecTool (this, e, mk), MICSECCHAR); 


Enter(new HouH-TooI (this, e, mk), LHOURCHAR ); 
Enter(new MinuteLTool (this, e, mk), LMINUTECHAR); 
Enter(new SecLTool (this, e. mk), LSECONDCHAR); 
Enter(new MilSecLTool (this, e, mk), LMILSECCHAR); 
Entcr(ncw MicroSecLTool (this, e, mk), LMICSECCHAR); 


// This part is for Trigger If/By_All/By_Some 

Enter (new IfTooI (this, e, mk), IFCHAR); 

Enter (new By_Airrool (this, e, mk), BYALLCHAR); 
Enter (new By_SomcTool (this, e, mk), BYSOMECHAR); 


tools->Insert(new BSplineTool(this, e, mk)); 
tools->Insert(new £llipseTool(this, e, mk)); 
tools->Insert(new RectTool(this, e, mk)); 

// tools->Inscrt(new LabelTool(this, e, mk)); 

Enter(new LabelToolCthis, c, mk), LABELCHAR); 

Insert(tools); 

// Reconfig makes Tools's shape unstretchable but shrinkable. 

void Tools::Reconfig () | 

Panel::ReconfigO; 
shapc->RigidCO, 0, vfil, 0); 

) 
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